(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    206307,       7926]
NotebookOptionsPosition[    199539,       7713]
NotebookOutlinePosition[    200161,       7739]
CellTagsIndexPosition[    200074,       7734]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"<<", "ACPackages`"}]], "Input",
 InitializationCell->True],

Cell[CellGroupData[{

Cell["\:041f\:043e\:0441\:0442\:0440\:043e\:0435\:043d\:0438\:0435 \:0441\
\:0438\:0441\:0442\:0435\:043c\:044b \:0438 \:043c\:0430\:0442\:0440\:0438\
\:0446", "Subsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"U", "[", "r_", "]"}], ":=", 
   RowBox[{"1", "-", 
    SuperscriptBox["r", "2"]}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"eqs\[Phi]r", "[", 
    RowBox[{"\[Lambda]_", ",", "k_", ",", "m_", ",", "Re_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "3"}], " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["m", "2"], " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["m", "2"], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["k", "4"], " ", 
       SuperscriptBox["r", "4"], " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "k", " ", 
       SuperscriptBox["r", "2"], " ", "Re", " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "k", " ", 
       SuperscriptBox["r", "4"], " ", "Re", " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox["k", "3"], " ", 
       SuperscriptBox["r", "4"], " ", "Re", " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox["k", "3"], " ", 
       SuperscriptBox["r", "6"], " ", "Re", " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", "Re", " ", "\[Lambda]", " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["r", "4"], " ", "Re", " ", "\[Lambda]", " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "-", 
      RowBox[{"3", " ", "\[ImaginaryI]", " ", "m", " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{"3", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["m", "3"], " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{"3", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["k", "2"], " ", "m", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{"k", " ", "m", " ", 
       SuperscriptBox["r", "2"], " ", "Re", " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{"k", " ", "m", " ", 
       SuperscriptBox["r", "4"], " ", "Re", " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "m", " ", 
       SuperscriptBox["r", "2"], " ", "Re", " ", "\[Lambda]", " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{"3", " ", "r", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["m", "2"], " ", "r", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["r", "3"], " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "k", " ", 
       SuperscriptBox["r", "3"], " ", "Re", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "k", " ", 
       SuperscriptBox["r", "5"], " ", "Re", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["r", "3"], " ", "Re", " ", "\[Lambda]", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "+", 
      RowBox[{"3", " ", "\[ImaginaryI]", " ", "m", " ", "r", " ", 
       RowBox[{
        SuperscriptBox["v\[Phi]", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox["m", "3"], " ", "r", " ", 
       RowBox[{
        SuperscriptBox["v\[Phi]", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox["k", "2"], " ", "m", " ", 
       SuperscriptBox["r", "3"], " ", 
       RowBox[{
        SuperscriptBox["v\[Phi]", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"k", " ", "m", " ", 
       SuperscriptBox["r", "3"], " ", "Re", " ", 
       RowBox[{
        SuperscriptBox["v\[Phi]", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "+", 
      RowBox[{"k", " ", "m", " ", 
       SuperscriptBox["r", "5"], " ", "Re", " ", 
       RowBox[{
        SuperscriptBox["v\[Phi]", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "m", " ", 
       SuperscriptBox["r", "3"], " ", "Re", " ", "\[Lambda]", " ", 
       RowBox[{
        SuperscriptBox["v\[Phi]", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"3", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["m", "2"], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["r", "4"], " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "k", " ", 
       SuperscriptBox["r", "4"], " ", "Re", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "k", " ", 
       SuperscriptBox["r", "6"], " ", "Re", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["r", "4"], " ", "Re", " ", "\[Lambda]", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{
        SuperscriptBox["v\[Phi]", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "3"], " ", 
       RowBox[{
        SuperscriptBox["vr", 
         TagBox[
          RowBox[{"(", "3", ")"}],
          Derivative],
         MultilineFunction->None], "[", "r", "]"}]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "m", " ", 
       SuperscriptBox["r", "3"], " ", 
       RowBox[{
        SuperscriptBox["v\[Phi]", 
         TagBox[
          RowBox[{"(", "3", ")"}],
          Derivative],
         MultilineFunction->None], "[", "r", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["r", "4"], " ", 
       RowBox[{
        SuperscriptBox["vr", 
         TagBox[
          RowBox[{"(", "4", ")"}],
          Derivative],
         MultilineFunction->None], "[", "r", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "m", " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox["m", "3"], " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "-", 
      RowBox[{"3", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["k", "2"], " ", "m", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "-", 
      RowBox[{"k", " ", "m", " ", 
       SuperscriptBox["r", "2"], " ", "Re", " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "-", 
      RowBox[{"k", " ", "m", " ", 
       SuperscriptBox["r", "4"], " ", "Re", " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "m", " ", 
       SuperscriptBox["r", "2"], " ", "Re", " ", "\[Lambda]", " ", 
       RowBox[{"vr", "[", "r", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["m", "2"], " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["m", "4"], " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["m", "2"], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["k", "4"], " ", 
       SuperscriptBox["r", "4"], " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "k", " ", 
       SuperscriptBox["m", "2"], " ", 
       SuperscriptBox["r", "2"], " ", "Re", " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox["k", "3"], " ", 
       SuperscriptBox["r", "4"], " ", "Re", " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "k", " ", 
       SuperscriptBox["m", "2"], " ", 
       SuperscriptBox["r", "4"], " ", "Re", " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox["k", "3"], " ", 
       SuperscriptBox["r", "6"], " ", "Re", " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["m", "2"], " ", 
       SuperscriptBox["r", "2"], " ", "Re", " ", "\[Lambda]", " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["r", "4"], " ", "Re", " ", "\[Lambda]", " ", 
       RowBox[{"v\[Phi]", "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "m", " ", "r", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox["m", "3"], " ", "r", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox["k", "2"], " ", "m", " ", 
       SuperscriptBox["r", "3"], " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"k", " ", "m", " ", 
       SuperscriptBox["r", "3"], " ", "Re", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "+", 
      RowBox[{"k", " ", "m", " ", 
       SuperscriptBox["r", "5"], " ", "Re", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "m", " ", 
       SuperscriptBox["r", "3"], " ", "Re", " ", "\[Lambda]", " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["m", "2"], " ", "r", " ", 
       RowBox[{
        SuperscriptBox["v\[Phi]", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["r", "3"], " ", 
       RowBox[{
        SuperscriptBox["v\[Phi]", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "+", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{
        SuperscriptBox["vr", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["m", "2"], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{
        SuperscriptBox["v\[Phi]", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["r", "4"], " ", 
       RowBox[{
        SuperscriptBox["v\[Phi]", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "m", " ", 
       SuperscriptBox["r", "3"], " ", 
       RowBox[{
        SuperscriptBox["vr", 
         TagBox[
          RowBox[{"(", "3", ")"}],
          Derivative],
         MultilineFunction->None], "[", "r", "]"}]}]}]}], "}"}]}], 
  ";"}]], "Input",
 InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "\:041a\:0420\:0421", " ", "\:0441", " ", 
   "\:0446\:0435\:043b\:043e\:0447\:0438\:0441\:043b\:0435\:043d\:043d\:043e\
\:0439", " ", "\:0441\:0435\:0442\:043a\:043e\:0439", " ", "\:0438", " ", 
   "\:043e\:0434\:0438\:043d\:0430\:043a\:043e\:0432\:044b\:043c\:0438", " ", 
   "\:0440\:0430\:0437\:043d\:043e\:0441\:0442\:044f\:043c\:0438"}], 
  "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FiniteMatrix4Eigen", "[", 
    RowBox[{"n_", ",", 
     RowBox[{"sample_:", "5"}], ",", "subst___"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"h", "=", 
        FractionBox["1", "n"]}], ",", "krseq", ",", "krs", ",", "unk", ",", 
       "unkmain", ",", "unkfict", ",", "i", ",", "sm", ",", "s", ",", "order",
        ",", "lhs", ",", "rhs", ",", "gh", ",", "\[Omega]"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"sm", "=", 
       RowBox[{"Max", "[", 
        RowBox[{"sample", ",", "5"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"gh", "=", 
       FractionBox[
        RowBox[{"sm", "-", "1"}], "2"]}], ";", "\[IndentingNewLine]", 
      RowBox[{"unk", "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           SubscriptBox["f", "i"], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"0", "-", 
              FractionBox[
               RowBox[{"sm", "-", "1"}], "2"]}], ",", 
             RowBox[{"n", "+", 
              FractionBox[
               RowBox[{"sm", "-", "1"}], "2"]}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           SubscriptBox["g", "i"], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"0", "-", 
              FractionBox[
               RowBox[{"sm", "-", "1"}], "2"]}], ",", 
             RowBox[{"n", "+", 
              FractionBox[
               RowBox[{"sm", "-", "1"}], "2"]}]}], "}"}]}], "]"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"unkmain", "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           SubscriptBox["f", "i"], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           SubscriptBox["g", "i"], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"unkfict", "=", 
       RowBox[{"Complement", "[", 
        RowBox[{"unk", ",", "unkmain"}], "]"}]}], ";", 
      RowBox[{
       RowBox[{"dersam", "[", 
        RowBox[{"buk_", ",", "order_", ",", "s_"}], "]"}], ":=", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           SubscriptBox["buk", "j"], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", 
             RowBox[{"i", "-", 
              FractionBox[
               RowBox[{"s", "-", "1"}], "2"]}], ",", 
             RowBox[{"i", "+", 
              FractionBox[
               RowBox[{"s", "-", "1"}], "2"]}]}], "}"}]}], "]"}], ".", 
         RowBox[{"NDCoefficientList", "[", 
          RowBox[{"order", ",", "s"}], "]"}]}], "/", 
        SuperscriptBox["h", "order"]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"rhs", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["\[Omega]", "k"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"f", "'"}], "'"}], "[", "z", "]"}], "-", 
            RowBox[{
             SuperscriptBox["k", "2"], 
             RowBox[{"f", "[", "z", "]"}]}]}], ")"}]}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"z", "\[Rule]", 
            RowBox[{"i", " ", "h"}]}], ",", 
           RowBox[{
            RowBox[{"f", "[", "z", "]"}], "\[Rule]", 
            SubscriptBox["f", "i"]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"f", "''"}], "[", "z", "]"}], "\[Rule]", 
            RowBox[{"dersam", "[", 
             RowBox[{"2", ",", "sm"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"f", "''''"}], "[", "z", "]"}], "\[Rule]", 
            RowBox[{"dersam", "[", 
             RowBox[{"4", ",", "sm"}], "]"}]}]}], "}"}]}], "/.", 
        RowBox[{"{", "subst", "}"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"lhs", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Simplify", "[", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"eqOZ", "[", 
             RowBox[{"\[Omega]", ",", "k", ",", "R"}], "]"}], "+", 
            RowBox[{
             FractionBox["\[Omega]", "k"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"f", "'"}], "'"}], "[", "z", "]"}], "-", 
               RowBox[{
                SuperscriptBox["k", "2"], 
                RowBox[{"f", "[", "z", "]"}]}]}], ")"}]}]}], ")"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"z", "\[Rule]", 
            RowBox[{"i", " ", "h"}]}], ",", 
           RowBox[{
            RowBox[{"f", "[", "z", "]"}], "\[Rule]", 
            SubscriptBox["f", "i"]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"f", "''"}], "[", "z", "]"}], "\[Rule]", 
            RowBox[{"dersam", "[", 
             RowBox[{"2", ",", "sm"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"f", "''''"}], "[", "z", "]"}], "\[Rule]", 
            RowBox[{"dersam", "[", 
             RowBox[{"4", ",", "sm"}], "]"}]}]}], "}"}]}], "/.", 
        RowBox[{"{", "subst", "}"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"virfict", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["f", 
           RowBox[{"-", "2"}]], "\[Rule]", 
          RowBox[{
           RowBox[{"6", 
            SubscriptBox["f", "0"]}], "-", 
           RowBox[{"8", 
            SubscriptBox["f", "1"]}], "+", 
           RowBox[{"3", 
            SubscriptBox["f", "2"]}]}]}], ",", 
         RowBox[{
          SubscriptBox["f", 
           RowBox[{"-", "1"}]], "\[Rule]", 
          RowBox[{
           RowBox[{"3", 
            SubscriptBox["f", "0"]}], "-", 
           RowBox[{"3", 
            SubscriptBox["f", "1"]}], "+", 
           SubscriptBox["f", "2"]}]}], ",", 
         RowBox[{
          SubscriptBox["f", "0"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["f", "n"], "\[Rule]", "0"}], ",", 
         RowBox[{
          SubscriptBox["f", 
           RowBox[{"n", "+", "1"}]], "\[Rule]", 
          RowBox[{
           RowBox[{"3", 
            SubscriptBox["f", "n"]}], "-", 
           RowBox[{"3", 
            SubscriptBox["f", 
             RowBox[{"n", "-", "1"}]]}], "+", 
           SubscriptBox["f", 
            RowBox[{"n", "-", "2"}]]}]}], ",", 
         RowBox[{
          SubscriptBox["f", 
           RowBox[{"n", "+", "2"}]], "\[Rule]", 
          RowBox[{
           RowBox[{"6", 
            SubscriptBox["f", "n"]}], "-", 
           RowBox[{"8", 
            SubscriptBox["f", 
             RowBox[{"n", "-", "1"}]]}], "+", 
           RowBox[{"3", 
            SubscriptBox["f", 
             RowBox[{"n", "-", "2"}]]}]}]}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"fict", "=", 
       RowBox[{"unkfict", "/.", "virfict"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"rhs", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Coefficient", "[", 
           RowBox[{"#", ",", "unkmain"}], "]"}], "&"}], "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{"rhs", ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", 
               RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "/.", "virfict"}], 
          ")"}]}], "/", "\[Omega]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"rhs", "//", "TableForm"}], "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"lhs", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{"#", ",", "unkmain"}], "]"}], "&"}], "/@", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{"lhs", ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "/.", "virfict"}], 
         ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\<next:\>\"", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"lhs", "//", "TableForm"}], "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Return", "[", 
         RowBox[{"rhs", ".", 
          RowBox[{"Inverse", "[", "lhs", "]"}]}], "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"{", 
        RowBox[{"lhs", ",", "rhs"}], "}"}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "\:041a\:0420\:0421", " ", "\:0441", " ", 
    "\:0434\:0440\:043e\:0431\:043d\:043e\:0439", " ", 
    "\:0441\:0435\:0442\:043a\:043e\:0439", " ", "\:0438", " ", 
    "\:0446\:0435\:043d\:0442\:0440\:0430\:043b\:044c\:043d\:044b\:043c\:0438\
", " ", "\:0440\:0430\:0437\:043d\:043e\:0441\:0442\:044f\:043c\:0438"}], "-",
    "current"}], "*)"}]], "Input",
 CellChangeTimes->{{3.447694410132*^9, 3.4476944109849997`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FiniteMatrix4Eigen", "[", 
    RowBox[{"n_", ",", "m_", ",", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"sample_:", "5"}], ","}], "*)"}], "subst___"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"h", "=", 
        FractionBox["1", "n"]}], ",", "unk", ",", "unkmain", ",", "unkfict", 
       ",", "i", ",", "sm", ",", "s", ",", "order", ",", "lhs", ",", "rhs", 
       ",", "\[Omega]"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"sm", "=", 
       RowBox[{"Max", "[", 
        RowBox[{"sample", ",", "5"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"sm", "=", "5"}], ";", "\[IndentingNewLine]", 
      RowBox[{"gh", "=", 
       FractionBox[
        RowBox[{"sm", "-", "1"}], "2"]}], ";", "\[IndentingNewLine]", 
      RowBox[{"unk", "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           SubscriptBox["f", 
            RowBox[{"i", "+", 
             RowBox[{"1", "/", "2"}]}]], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"0", "-", 
              FractionBox[
               RowBox[{"sm", "-", "1"}], "2"]}], ",", 
             RowBox[{"n", "+", 
              FractionBox[
               RowBox[{"sm", "-", "1"}], "2"], "-", "1"}]}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           SubscriptBox["g", 
            RowBox[{"i", "+", 
             RowBox[{"1", "/", "2"}]}]], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"-", "1"}], ",", "n"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"unkmain", "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           SubscriptBox["f", "i"], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"1", "/", "2"}], ",", 
             RowBox[{"n", "-", 
              RowBox[{"1", "/", "2"}]}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           SubscriptBox["g", "i"], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"1", "/", "2"}], ",", 
             RowBox[{"n", "-", 
              RowBox[{"1", "/", "2"}]}]}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"unkfict", "=", 
       RowBox[{"Complement", "[", 
        RowBox[{"unk", ",", "unkmain"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{
       RowBox[{"dersam", "[", 
        RowBox[{"buk_", ",", "order_", ",", "s_"}], "]"}], ":=", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           SubscriptBox["buk", "j"], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", 
             RowBox[{"i", "-", 
              FractionBox[
               RowBox[{"s", "-", "1"}], "2"]}], ",", 
             RowBox[{"i", "+", 
              FractionBox[
               RowBox[{"s", "-", "1"}], "2"]}]}], "}"}]}], "]"}], ".", 
         RowBox[{"NDCoefficientList", "[", 
          RowBox[{"order", ",", "s"}], "]"}]}], "/", 
        SuperscriptBox["h", "order"]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"subs", "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"r", "\[Rule]", 
           RowBox[{"i", " ", "h"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"vr", "[", "r_", "]"}], "->", 
            SubscriptBox["f", "i"]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"vr", "'"}], "[", "r_", "]"}], "->", 
            RowBox[{"dersam", "[", 
             RowBox[{"f", ",", "1", ",", "sm"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"vr", "''"}], "[", "r_", "]"}], "->", 
            RowBox[{"dersam", "[", 
             RowBox[{"f", ",", "2", ",", "sm"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"vr", "'''"}], "[", "r_", "]"}], "->", 
            RowBox[{"dersam", "[", 
             RowBox[{"f", ",", "3", ",", "sm"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"vr", "''''"}], "[", "r_", "]"}], "->", 
            RowBox[{"dersam", "[", 
             RowBox[{"f", ",", "4", ",", "sm"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"v\[Phi]", "[", "r_", "]"}], "->", 
            SubscriptBox["g", "i"]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"v\[Phi]", "'"}], "[", "r_", "]"}], "->", 
            RowBox[{"dersam", "[", 
             RowBox[{"g", ",", "1", ",", "sm"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"v\[Phi]", "''"}], "[", "r_", "]"}], "->", 
            RowBox[{"dersam", "[", 
             RowBox[{"g", ",", "2", ",", "sm"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"v\[Phi]", "'''"}], "[", "r_", "]"}], "->", 
            RowBox[{"dersam", "[", 
             RowBox[{"g", ",", "3", ",", "sm"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"v\[Phi]", "''''"}], "[", "r_", "]"}], "->", 
            RowBox[{"dersam", "[", 
             RowBox[{"g", ",", "4", ",", "sm"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", "subst", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"rhs", "=", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"eqs\[Phi]r", "[", 
            RowBox[{"\[Omega]", ",", "k", ",", "m", ",", "R"}], "]"}], ",", 
           "\[Omega]"}], "]"}]}], "/.", "subs"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"lhs", "=", 
       RowBox[{
        RowBox[{"Simplify", "[", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"eqs\[Phi]r", "[", 
            RowBox[{"\[Omega]", ",", "k", ",", "m", ",", "R"}], "]"}], "-", 
           RowBox[{"\[Omega]", " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"eqs\[Phi]r", "[", 
               RowBox[{"\[Omega]", ",", "k", ",", "m", ",", "R"}], "]"}], ",",
               "\[Omega]"}], "]"}]}]}], ")"}], "]"}], "/.", "subs"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"bc", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"dersam", "[", 
           RowBox[{"f", ",", "0", ",", 
            RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
          RowBox[{"i", "\[Rule]", "n"}]}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"dersam", "[", 
             RowBox[{"f", ",", "1", ",", 
              RowBox[{"sm", "-", "1"}]}], "]"}], "+", 
            RowBox[{"dersam", "[", 
             RowBox[{"f", ",", "0", ",", 
              RowBox[{"sm", "-", "1"}]}], "]"}]}], ")"}], "/.", 
          RowBox[{"i", "\[Rule]", "n"}]}], ",", 
         RowBox[{
          RowBox[{"dersam", "[", 
           RowBox[{"g", ",", "0", ",", 
            RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
          RowBox[{"i", "\[Rule]", "n"}]}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"bc", "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"OddQ", "[", "m", "]"}], ",", 
         RowBox[{"Join", "[", 
          RowBox[{"bc", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"dersam", "[", 
               RowBox[{"f", ",", "1", ",", 
                RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
              RowBox[{"i", "\[Rule]", "0"}]}], ",", 
             RowBox[{
              RowBox[{"dersam", "[", 
               RowBox[{"g", ",", "1", ",", 
                RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
              RowBox[{"i", "\[Rule]", "0"}]}], ",", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"dersam", "[", 
                 RowBox[{"f", ",", "0", ",", 
                  RowBox[{"sm", "-", "1"}]}], "]"}], "+", 
                RowBox[{"\[ImaginaryI]", " ", "m", " ", 
                 RowBox[{"dersam", "[", 
                  RowBox[{"g", ",", "0", ",", 
                   RowBox[{"sm", "-", "1"}]}], "]"}]}]}], ")"}], "/.", 
              RowBox[{"i", "\[Rule]", "0"}]}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Join", "[", 
          RowBox[{"bc", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"dersam", "[", 
               RowBox[{"f", ",", "0", ",", 
                RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
              RowBox[{"i", "\[Rule]", "0"}]}], ",", 
             RowBox[{
              RowBox[{"dersam", "[", 
               RowBox[{"g", ",", "0", ",", 
                RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
              RowBox[{"i", "\[Rule]", "0"}]}], ",", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"dersam", "[", 
                 RowBox[{"f", ",", "1", ",", 
                  RowBox[{"sm", "-", "1"}]}], "]"}], "+", 
                RowBox[{"\[ImaginaryI]", " ", "m", " ", 
                 RowBox[{"dersam", "[", 
                  RowBox[{"g", ",", "1", ",", 
                   RowBox[{"sm", "-", "1"}]}], "]"}]}]}], ")"}], "/.", 
              RowBox[{"i", "\[Rule]", "0"}]}]}], "}"}]}], "]"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"virfict", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{"Thread", "[", 
           RowBox[{"bc", "\[Equal]", "0"}], "]"}], ",", "unkfict"}], "]"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"fict", "=", 
       RowBox[{"unkfict", "/.", "virfict"}]}], ";", 
      RowBox[{"rhs", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{"#", ",", "unkmain"}], "]"}], "&"}], "/@", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{"rhs", ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", 
              RowBox[{"1", "/", "2"}], ",", 
              RowBox[{"n", "-", 
               RowBox[{"1", "/", "2"}]}]}], "}"}]}], "]"}], "/.", "virfict"}],
          "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"lhs", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{"#", ",", "unkmain"}], "]"}], "&"}], "/@", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{"lhs", ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", 
              RowBox[{"1", "/", "2"}], ",", 
              RowBox[{"n", "-", 
               RowBox[{"1", "/", "2"}]}]}], "}"}]}], "]"}], "/.", "virfict"}],
          "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"rhs", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"Coefficient", "[", 
            RowBox[{"#", ",", "unk"}], "]"}], "&"}], "/@", 
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{"0", ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"j", ",", 
                RowBox[{"n", "+", "sm", "-", "1"}]}], "}"}]}], "]"}], ",", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{"rhs", ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", 
                 RowBox[{"1", "/", "2"}], ",", 
                 RowBox[{"n", "-", 
                  RowBox[{"1", "/", "2"}]}]}], "}"}]}], "]"}], "/", 
             "\[Omega]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{"0", ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"j", ",", 
                RowBox[{"n", "+", "sm", "-", "1"}]}], "}"}]}], "]"}]}], 
           "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"lhs", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"Coefficient", "[", 
            RowBox[{"#", ",", "unk"}], "]"}], "&"}], "/@", 
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"dersam", "[", 
                RowBox[{"0", ",", 
                 RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
               RowBox[{"i", "\[Rule]", "0"}]}], ",", 
              RowBox[{
               RowBox[{"dersam", "[", 
                RowBox[{"1", ",", 
                 RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
               RowBox[{"i", "\[Rule]", "0"}]}]}], "}"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{"lhs", ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", 
                RowBox[{"1", "/", "2"}], ",", 
                RowBox[{"n", "-", 
                 RowBox[{"1", "/", "2"}]}]}], "}"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"dersam", "[", 
                RowBox[{"1", ",", 
                 RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
               RowBox[{"i", "\[Rule]", "n"}]}], ",", 
              RowBox[{
               RowBox[{"dersam", "[", 
                RowBox[{"0", ",", 
                 RowBox[{"sm", "-", "1"}]}], "]"}], "/.", 
               RowBox[{"i", "\[Rule]", "n"}]}]}], "}"}]}], "]"}]}]}], ";"}], 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Return", "[", 
         RowBox[{"rhs", ".", 
          RowBox[{"Inverse", "[", "lhs", "]"}]}], "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"{", 
        RowBox[{"lhs", ",", "rhs"}], "}"}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 InitializationCell->True]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0424\:0443\:043d\:043a\:0446\:0438\:0438 \:043d\:0430\:0445\:043e\
\:0436\:0434\:0435\:043d\:0438\:044f \:0438\:043d\:043a\:0440\:0435\:043c\
\:0435\:043d\:0442\:043e\:0432", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435", " ", 
     RowBox[{"\:0441", ".", "\:0437", ".", " ", "\:0438"}], " ", 
     RowBox[{"\:0441", ".", "\:0432", ".", " ", "\:0441"}], " ", 
     "\:043f\:043e\:043c\:043e\:0449\:044c\:044e", " ", "Eigen"}], "..."}], 
   "[", 
   RowBox[{
    RowBox[{"Inverse", "[", "a", "]"}], ".", "m"}], "]"}], "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetIncrements", "[", 
    RowBox[{"n_", ",", "m_", ",", "k1_", ",", "R1_"}], "]"}], ":=", 
   RowBox[{"Eigenvalues", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Inverse", "[", 
        RowBox[{"Last", "[", "#", "]"}], "]"}], ".", 
       RowBox[{"First", "[", "#", "]"}]}], "&"}], "[", 
     RowBox[{"N", "[", 
      RowBox[{"FiniteMatrix4Eigen", "[", 
       RowBox[{"n", ",", "m", ",", 
        RowBox[{"k", "\[Rule]", "k1"}], ",", 
        RowBox[{"R", "\[Rule]", "R1"}]}], "]"}], "]"}], "]"}], "]"}]}], 
  ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetEigenWave", "[", 
    RowBox[{"n1_", ",", "m_", ",", "k1_", ",", "R1_", ",", 
     RowBox[{"mode_:", "1"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"eigval", ",", "eigvec", ",", "nom", ",", "syst"}], "}"}], ",", 
     RowBox[{
      RowBox[{"syst", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Inverse", "[", 
           RowBox[{"Last", "[", "#", "]"}], "]"}], ".", 
          RowBox[{"First", "[", "#", "]"}]}], "&"}], "[", 
        RowBox[{"N", "[", 
         RowBox[{"FiniteMatrix4Eigen", "[", 
          RowBox[{"n1", ",", "m", ",", 
           RowBox[{"k", "\[Rule]", "k1"}], ",", 
           RowBox[{"R", "\[Rule]", "R1"}]}], "]"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"eigval", ",", "eigvec"}], "}"}], "=", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"Eigensystem", "[", "syst", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"NumericQ", "[", 
            RowBox[{"First", "[", "#", "]"}], "]"}], "&"}]}], "]"}], "//", 
        "Transpose"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"nom", "=", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Position", "[", 
          RowBox[{"eigval", ",", 
           RowBox[{
            RowBox[{"Sort", "[", 
             RowBox[{"eigval", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Re", "[", "#1", "]"}], ">", 
                RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], 
            "\[LeftDoubleBracket]", "mode", "\[RightDoubleBracket]"}]}], 
          "]"}], "]"}], "//", "First"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Main eigen value is \>\"", ",", 
        RowBox[{"eigval", "[", 
         RowBox[{"[", "nom", "]"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
       "eigvec", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
       "]"}], ";"}]}], "]"}]}], ";"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435", " ", 
     RowBox[{"\:0441", ".", "\:0437", ".", " ", "\:0438"}], " ", 
     RowBox[{"\:0441", ".", "\:0432", ".", " ", "\:0441"}], " ", 
     "\:043f\:043e\:043c\:043e\:0449\:044c\:044e", " ", "Eigen"}], "..."}], 
   "[", 
   RowBox[{"{", 
    RowBox[{"m", ",", "a"}], "}"}], "]"}], "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetIncrements", "[", 
    RowBox[{"n_", ",", "m_", ",", "k1_", ",", "R1_"}], "]"}], ":=", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Eigenvalues", "[", 
      RowBox[{"N", "[", 
       RowBox[{"FiniteMatrix4Eigen", "[", 
        RowBox[{"n", ",", "m", ",", 
         RowBox[{"k", "\[Rule]", "k1"}], ",", 
         RowBox[{"R", "\[Rule]", "R1"}]}], "]"}], "]"}], "]"}], ",", 
     "NumericQ"}], "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetEigenWave", "[", 
    RowBox[{"n1_", ",", "m_", ",", "k1_", ",", "R1_", ",", 
     RowBox[{"mode_:", "1"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"eigval", ",", "eigvec", ",", "nom", ",", "syst"}], "}"}], ",", 
     
     RowBox[{
      RowBox[{"syst", "=", 
       RowBox[{"N", "[", 
        RowBox[{"FiniteMatrix4Eigen", "[", 
         RowBox[{"n1", ",", "m", ",", 
          RowBox[{"k", "\[Rule]", "k1"}], ",", 
          RowBox[{"R", "\[Rule]", "R1"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"eigval", ",", "eigvec"}], "}"}], "=", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"Eigensystem", "[", "syst", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"NumericQ", "[", 
            RowBox[{"First", "[", "#", "]"}], "]"}], "&"}]}], "]"}], "//", 
        "Transpose"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"nom", "=", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Position", "[", 
          RowBox[{"eigval", ",", 
           RowBox[{
            RowBox[{"Sort", "[", 
             RowBox[{"eigval", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Re", "[", "#1", "]"}], ">", 
                RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], 
            "\[LeftDoubleBracket]", "mode", "\[RightDoubleBracket]"}]}], 
          "]"}], "]"}], "//", "First"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Main eigen value is \>\"", ",", 
        RowBox[{"eigval", "[", 
         RowBox[{"[", "nom", "]"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{
       "eigvec", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
       "]"}], ";"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetMainIncrement", "[", 
    RowBox[{"n_", ",", "m_", ",", "k1_", ",", "R1_", ",", 
     RowBox[{"num_:", "1"}]}], "]"}], ":=", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"GetMainIncrement", "[", 
      RowBox[{"n", ",", "k1", ",", "R1", ",", "num"}], "]"}], "="}], "*)"}], 
   RowBox[{
    RowBox[{"Take", "[", 
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "/@", 
        RowBox[{"GetIncrements", "[", 
         RowBox[{"n", ",", "m", ",", "k1", ",", "R1"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"-", "num"}], "}"}]}], "]"}], "//", "First"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.447581968125*^9, 3.447581969703125*^9}}],

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"GetIncrements", "[", 
      RowBox[{"20", ",", "0", ",", "1", ",", "100"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Re", "[", "#1", "]"}], ">", 
       RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], ",", "10"}], 
  "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetMainIncrement", "[", 
  RowBox[{"20", ",", "0", ",", "1", ",", "100", ",", "2"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"20", ",", "1", ",", "100"}], "}"}]], "Print"],

Cell[BoxData[
 RowBox[{"-", "0.2743350360025171`"}]], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Sort", "[", 
  RowBox[{
   RowBox[{"GetIncrements", "[", 
    RowBox[{"20", ",", "0", ",", 
     SuperscriptBox["10", 
      RowBox[{"-", "4"}]], ",", "10"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Re", "[", "#1", "]"}], ">", 
     RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "\:041e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:044f", " ", 
   "\:0432", " ", 
   "\:043e\:043f\:0440\:0435\:0434\:0435\:043b\:0438\:0442\:0435\:043b\:0435",
    " ", "\:043f\:043e\:0441\:043b\:0435", " ", 
   "\:043f\:043e\:0434\:0441\:0442\:0430\:043d\:043e\:0432\:043a\:0438", " ", 
   "\:0441\:043e\:0431\:0441\:0442\:0432\:0435\:043d\:043d\:043e\:0433\:043e",
    " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n2", "=", "3"}], ",", 
       RowBox[{"m", "=", "0"}], ",", 
       RowBox[{"k2", "=", "1"}], ",", 
       RowBox[{"R2", "=", "100"}], ",", 
       RowBox[{"mod", "=", "1"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Det", "[", 
        RowBox[{"SetPrecision", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"First", "[", "#", "]"}], "-", 
           RowBox[{
            RowBox[{
             RowBox[{"Sort", "[", 
              RowBox[{
               RowBox[{"GetIncrements", "[", 
                RowBox[{"n2", ",", "m", ",", "k2", ",", "R2"}], "]"}], ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"Re", "[", "#1", "]"}], ">", 
                 RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], "[", 
             RowBox[{"[", "mod", "]"}], "]"}], 
            RowBox[{"Last", "[", "#", "]"}]}]}], ",", "1000"}], "]"}], "]"}], 
       "&"}], "[", 
      RowBox[{"SetPrecision", "[", 
       RowBox[{
        RowBox[{"FiniteMatrix4Eigen", "[", 
         RowBox[{"n2", ",", "m", ",", 
          RowBox[{"k", "\[Rule]", "k2"}], ",", 
          RowBox[{"R", "\[Rule]", "R2"}]}], "]"}], ",", "1000"}], "]"}], 
      "]"}]}], "]"}]}], "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "\:041e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:044f", " ", 
    "\:0432", " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:0435", " ", 
    "\:043f\:043e\:0441\:043b\:0435", " ", 
    "\:043f\:043e\:0434\:0441\:0442\:0430\:043d\:043e\:0432\:043a\:0438", " ",
     "\:0441\:043e\:0431\:0441\:0442\:0432\:0435\:043d\:043d\:044b\:0445", 
    " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0439", " ", "\:0438", 
    " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:043e\:0432"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"n2", "=", "300"}], ",", 
         RowBox[{"m", "=", "0"}], ",", 
         RowBox[{"k2", "=", "1"}], ",", 
         RowBox[{"R2", "=", "1000"}], ",", 
         RowBox[{"mod", "=", "2"}]}], "}"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"First", "[", "#", "]"}], "-", 
            RowBox[{
             RowBox[{
              RowBox[{"Sort", "[", 
               RowBox[{
                RowBox[{"GetIncrements", "[", 
                 RowBox[{"n2", ",", "m", ",", "k2", ",", "R2"}], "]"}], ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Re", "[", "#1", "]"}], ">", 
                  RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], "[", 
              RowBox[{"[", "mod", "]"}], "]"}], 
             RowBox[{"Last", "[", "#", "]"}]}]}], ")"}], ".", 
          RowBox[{"GetEigenWave", "[", 
           RowBox[{"n2", ",", "m", ",", "k2", ",", "R2", ",", "mod"}], 
           "]"}]}], "&"}], "[", 
        RowBox[{"FiniteMatrix4Eigen", "[", 
         RowBox[{"n2", ",", "m", ",", 
          RowBox[{"k", "\[Rule]", "k2"}], ",", 
          RowBox[{"R", "\[Rule]", "R2"}]}], "]"}], "]"}]}], "]"}], "//", 
     "Abs"}], "//", "PrintRange"}], ";"}]}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Main eigen value is \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", "0.09044273923836219`"}], "+", 
    RowBox[{"0.910557808998125`", " ", "\[ImaginaryI]"}]}]}],
  SequenceForm["Main eigen value is ", 
   Complex[-0.09044273923836219, 0.910557808998125]],
  Editable->False]], "Print"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0222196 0.00158995 0.0141356 42483.3 [
[.18121 .00164 -9 -9 ]
[.18121 .00164 9 0 ]
[.34021 .00164 -9 -9 ]
[.34021 .00164 9 0 ]
[.49921 .00164 -9 -9 ]
[.49921 .00164 9 0 ]
[.6582 .00164 -9 -9 ]
[.6582 .00164 9 0 ]
[.8172 .00164 -9 -9 ]
[.8172 .00164 9 0 ]
[.97619 .00164 -9 -9 ]
[.97619 .00164 9 0 ]
[.00972 .0991 -33 -6.25 ]
[.00972 .0991 0 6.25 ]
[.00972 .18407 -33 -6.25 ]
[.00972 .18407 0 6.25 ]
[.00972 .26904 -33 -6.25 ]
[.00972 .26904 0 6.25 ]
[.00972 .354 -33 -6.25 ]
[.00972 .354 0 6.25 ]
[.00972 .43897 -42 -4.5 ]
[.00972 .43897 0 4.5 ]
[.00972 .52394 -48 -4.5 ]
[.00972 .52394 0 4.5 ]
[.00972 .6089 -48 -4.5 ]
[.00972 .6089 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.18121 .01414 m
.18121 .02039 L
s
[(100)] .18121 .00164 0 1 Mshowa
.34021 .01414 m
.34021 .02039 L
s
[(200)] .34021 .00164 0 1 Mshowa
.49921 .01414 m
.49921 .02039 L
s
[(300)] .49921 .00164 0 1 Mshowa
.6582 .01414 m
.6582 .02039 L
s
[(400)] .6582 .00164 0 1 Mshowa
.8172 .01414 m
.8172 .02039 L
s
[(500)] .8172 .00164 0 1 Mshowa
.97619 .01414 m
.97619 .02039 L
s
[(600)] .97619 .00164 0 1 Mshowa
.125 Mabswid
.05402 .01414 m
.05402 .01789 L
s
.08582 .01414 m
.08582 .01789 L
s
.11762 .01414 m
.11762 .01789 L
s
.14942 .01414 m
.14942 .01789 L
s
.21301 .01414 m
.21301 .01789 L
s
.24481 .01414 m
.24481 .01789 L
s
.27661 .01414 m
.27661 .01789 L
s
.30841 .01414 m
.30841 .01789 L
s
.37201 .01414 m
.37201 .01789 L
s
.40381 .01414 m
.40381 .01789 L
s
.43561 .01414 m
.43561 .01789 L
s
.46741 .01414 m
.46741 .01789 L
s
.531 .01414 m
.531 .01789 L
s
.5628 .01414 m
.5628 .01789 L
s
.5946 .01414 m
.5946 .01789 L
s
.6264 .01414 m
.6264 .01789 L
s
.69 .01414 m
.69 .01789 L
s
.7218 .01414 m
.7218 .01789 L
s
.7536 .01414 m
.7536 .01789 L
s
.7854 .01414 m
.7854 .01789 L
s
.84899 .01414 m
.84899 .01789 L
s
.88079 .01414 m
.88079 .01789 L
s
.91259 .01414 m
.91259 .01789 L
s
.94439 .01414 m
.94439 .01789 L
s
.25 Mabswid
0 .01414 m
1 .01414 L
s
.02222 .0991 m
.02847 .0991 L
s
gsave
.00972 .0991 -33 -4.25 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(2) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-6) show
grestore
.02222 .18407 m
.02847 .18407 L
s
gsave
.00972 .18407 -33 -4.25 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(4) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-6) show
grestore
.02222 .26904 m
.02847 .26904 L
s
gsave
.00972 .26904 -33 -4.25 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(6) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-6) show
grestore
.02222 .354 m
.02847 .354 L
s
gsave
.00972 .354 -33 -4.25 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(8) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(-6) show
grestore
.02222 .43897 m
.02847 .43897 L
s
[(0.00001)] .00972 .43897 1 0 Mshowa
.02222 .52394 m
.02847 .52394 L
s
[(0.000012)] .00972 .52394 1 0 Mshowa
.02222 .6089 m
.02847 .6089 L
s
[(0.000014)] .00972 .6089 1 0 Mshowa
.125 Mabswid
.02222 .03538 m
.02597 .03538 L
s
.02222 .05662 m
.02597 .05662 L
s
.02222 .07786 m
.02597 .07786 L
s
.02222 .12034 m
.02597 .12034 L
s
.02222 .14159 m
.02597 .14159 L
s
.02222 .16283 m
.02597 .16283 L
s
.02222 .20531 m
.02597 .20531 L
s
.02222 .22655 m
.02597 .22655 L
s
.02222 .24779 m
.02597 .24779 L
s
.02222 .29028 m
.02597 .29028 L
s
.02222 .31152 m
.02597 .31152 L
s
.02222 .33276 m
.02597 .33276 L
s
.02222 .37524 m
.02597 .37524 L
s
.02222 .39649 m
.02597 .39649 L
s
.02222 .41773 m
.02597 .41773 L
s
.02222 .46021 m
.02597 .46021 L
s
.02222 .48145 m
.02597 .48145 L
s
.02222 .50269 m
.02597 .50269 L
s
.02222 .54518 m
.02597 .54518 L
s
.02222 .56642 m
.02597 .56642 L
s
.02222 .58766 m
.02597 .58766 L
s
.25 Mabswid
.02222 0 m
.02222 .61803 L
s
.5 Mabswid
.02381 .02929 m
.0254 .01984 L
.02699 .01653 L
.02858 .02662 L
.03017 .01572 L
.03176 .02514 L
.03335 .03333 L
.03494 .02974 L
.03653 .0315 L
.03812 .0487 L
.03971 .02595 L
.0413 .06648 L
.04289 .06747 L
.04448 .06947 L
.04607 .0443 L
.04766 .04966 L
.04925 .04475 L
.05084 .0257 L
.05243 .10091 L
.05402 .04275 L
.05561 .01844 L
.0572 .04027 L
.05879 .12888 L
.06038 .01993 L
.06197 .07006 L
.06356 .03957 L
.06515 .05711 L
.06674 .05262 L
.06833 .04717 L
.06992 .05347 L
.07151 .05374 L
.0731 .05655 L
.07469 .15794 L
.07628 .05121 L
.07787 .22897 L
.07946 .05824 L
.08105 .17945 L
.08264 .04902 L
.08423 .25004 L
.08582 .04079 L
.08741 .19087 L
.089 .04418 L
.09059 .16713 L
.09218 .04566 L
.09377 .26905 L
.09536 .02928 L
.09695 .07725 L
.09854 .05806 L
.10013 .10125 L
.10172 .10787 L
Mistroke
.10331 .07931 L
.1049 .10956 L
.10649 .14052 L
.10808 .06151 L
.10967 .22028 L
.11126 .11058 L
.11285 .05837 L
.11444 .12864 L
.11603 .10563 L
.11762 .06411 L
.11921 .05819 L
.1208 .04858 L
.12239 .16763 L
.12398 .08713 L
.12557 .04985 L
.12716 .06049 L
.12875 .08119 L
.13034 .07509 L
.13193 .03479 L
.13352 .11565 L
.13511 .08688 L
.1367 .1165 L
.13829 .06605 L
.13988 .11033 L
.14147 .0796 L
.14306 .10106 L
.14465 .05963 L
.14624 .1209 L
.14783 .06761 L
.14942 .1624 L
.15101 .05721 L
.1526 .16564 L
.15419 .03404 L
.15578 .17411 L
.15737 .03779 L
.15896 .14148 L
.16055 .04694 L
.16214 .12737 L
.16373 .04936 L
.16532 .07843 L
.16691 .02612 L
.1685 .05254 L
.17009 .07511 L
.17168 .05327 L
.17326 .0724 L
.17485 .05423 L
.17644 .05693 L
.17803 .06782 L
.17962 .07622 L
.18121 .04067 L
Mistroke
.1828 .0717 L
.18439 .04068 L
.18598 .0505 L
.18757 .09214 L
.18916 .07372 L
.19075 .11537 L
.19234 .01886 L
.19393 .09132 L
.19552 .03999 L
.19711 .06773 L
.1987 .03751 L
.20029 .06288 L
.20188 .05934 L
.20347 .04294 L
.20506 .09051 L
.20665 .04261 L
.20824 .03476 L
.20983 .06139 L
.21142 .02278 L
.21301 .11564 L
.2146 .04635 L
.21619 .14419 L
.21778 .02969 L
.21937 .14626 L
.22096 .06803 L
.22255 .1026 L
.22414 .03916 L
.22573 .07043 L
.22732 .03092 L
.22891 .02959 L
.2305 .04729 L
.23209 .06797 L
.23368 .05753 L
.23527 .09943 L
.23686 .03295 L
.23845 .13532 L
.24004 .04827 L
.24163 .10149 L
.24322 .02029 L
.24481 .08471 L
.2464 .04579 L
.24799 .06137 L
.24958 .03408 L
.25117 .05876 L
.25276 .03974 L
.25435 .0497 L
.25594 .0451 L
.25753 .01915 L
.25912 .0297 L
.26071 .04271 L
Mistroke
.2623 .02756 L
.26389 .08148 L
.26548 .03798 L
.26707 .07016 L
.26866 .04264 L
.27025 .062 L
.27184 .04768 L
.27343 .03787 L
.27502 .07305 L
.27661 .03508 L
.2782 .03694 L
.27979 .06667 L
.28138 .05923 L
.28297 .0596 L
.28456 .07053 L
.28615 .05848 L
.28774 .05865 L
.28933 .034 L
.29092 .02701 L
.29251 .02644 L
.2941 .04147 L
.29569 .04354 L
.29728 .02297 L
.29887 .03769 L
.30046 .04076 L
.30205 .04749 L
.30364 .02482 L
.30523 .02356 L
.30682 .02963 L
.30841 .02433 L
.31 .03246 L
.31159 .05013 L
.31318 .01823 L
.31477 .04001 L
.31636 .04987 L
.31795 .02781 L
.31954 .01996 L
.32113 .06031 L
.32272 .02848 L
.32431 .04135 L
.3259 .04711 L
.32749 .02613 L
.32908 .01934 L
.33067 .02526 L
.33226 .03698 L
.33385 .04419 L
.33544 .03941 L
.33703 .04124 L
.33862 .03403 L
.34021 .02449 L
Mistroke
.3418 .02917 L
.34339 .0628 L
.34498 .03373 L
.34657 .04954 L
.34816 .03611 L
.34975 .03218 L
.35134 .02765 L
.35293 .05908 L
.35452 .02526 L
.35611 .02574 L
.3577 .03184 L
.35929 .04483 L
.36088 .0423 L
.36247 .06843 L
.36406 .03436 L
.36565 .05982 L
.36724 .0529 L
.36883 .0506 L
.37042 .03185 L
.37201 .03985 L
.3736 .01721 L
.37519 .02914 L
.37678 .03027 L
.37837 .03744 L
.37996 .03012 L
.38155 .03369 L
.38314 .02629 L
.38473 .02629 L
.38632 .02125 L
.38791 .02613 L
.3895 .03973 L
.39109 .02829 L
.39268 .02536 L
.39427 .02054 L
.39586 .04079 L
.39745 .03303 L
.39904 .02193 L
.40063 .02385 L
.40222 .02195 L
.40381 .05334 L
.4054 .02873 L
.40699 .059 L
.40858 .02733 L
.41017 .04801 L
.41176 .03444 L
.41335 .02235 L
.41494 .03017 L
.41653 .03959 L
.41812 .02449 L
.41971 .03882 L
Mistroke
.4213 .03385 L
.42289 .03082 L
.42448 .0267 L
.42607 .03441 L
.42766 .01933 L
.42925 .04141 L
.43084 .03585 L
.43243 .04342 L
.43402 .01472 L
.43561 .02868 L
.4372 .02898 L
.43879 .03616 L
.44038 .02421 L
.44197 .02292 L
.44356 .02694 L
.44515 .03097 L
.44674 .03173 L
.44833 .0302 L
.44992 .03507 L
.45151 .02214 L
.4531 .0422 L
.45469 .01736 L
.45628 .02332 L
.45787 .02546 L
.45946 .04914 L
.46105 .04702 L
.46264 .02416 L
.46423 .03132 L
.46582 .03482 L
.46741 .04717 L
.469 .05566 L
.47059 .01855 L
.47218 .04997 L
.47377 .03488 L
.47536 .0376 L
.47695 .03136 L
.47854 .04126 L
.48013 .04933 L
.48172 .04234 L
.48331 .02409 L
.4849 .0369 L
.48649 .03212 L
.48808 .03255 L
.48967 .04343 L
.49126 .03285 L
.49285 .01697 L
.49444 .04581 L
.49603 .02144 L
.49762 .02879 L
.49921 .02607 L
Mistroke
.50079 .04341 L
.50238 .01991 L
.50397 .04014 L
.50556 .01782 L
.50715 .03722 L
.50874 .02307 L
.51033 .0223 L
.51192 .0176 L
.51351 .03714 L
.5151 .0211 L
.51669 .05581 L
.51828 .03118 L
.51987 .06125 L
.52146 .02957 L
.52305 .03002 L
.52464 .03259 L
.52623 .04155 L
.52782 .02295 L
.52941 .01847 L
.531 .02337 L
.53259 .04215 L
.53418 .02386 L
.53577 .01863 L
.53736 .01786 L
.53895 .049 L
.54054 .02536 L
.54213 .06672 L
.54372 .02096 L
.54531 .02719 L
.5469 .02268 L
.54849 .03122 L
.55008 .02939 L
.55167 .04641 L
.55326 .01776 L
.55485 .09154 L
.55644 .01986 L
.55803 .06589 L
.55962 .02085 L
.56121 .03629 L
.5628 .03524 L
.56439 .04858 L
.56598 .03229 L
.56757 .01934 L
.56916 .02185 L
.57075 .06135 L
.57234 .02137 L
.57393 .06442 L
.57552 .02726 L
.57711 .03223 L
.5787 .02596 L
Mistroke
.58029 .02472 L
.58188 .03358 L
.58347 .05537 L
.58506 .02908 L
.58665 .04359 L
.58824 .01848 L
.58983 .02981 L
.59142 .01807 L
.59301 .02648 L
.5946 .02587 L
.59619 .03037 L
.59778 .01529 L
.59937 .02074 L
.60096 .02369 L
.60255 .03699 L
.60414 .02485 L
.60573 .03057 L
.60732 .02805 L
.60891 .06141 L
.6105 .01811 L
.61209 .06826 L
.61368 .02302 L
.61527 .07742 L
.61686 .01773 L
.61845 .12096 L
.62004 .02539 L
.62163 .13129 L
.62322 .0251 L
.62481 .08797 L
.6264 .02167 L
.62799 .0252 L
.62958 .02192 L
.63117 .04437 L
.63276 .02161 L
.63435 .0781 L
.63594 .02191 L
.63753 .05438 L
.63912 .02153 L
.64071 .05276 L
.6423 .02162 L
.64389 .05312 L
.64548 .02038 L
.64707 .08897 L
.64866 .02238 L
.65025 .07926 L
.65184 .0215 L
.65343 .09916 L
.65502 .02249 L
.65661 .08226 L
.6582 .0249 L
Mistroke
.65979 .10039 L
.66138 .02105 L
.66297 .08871 L
.66456 .02146 L
.66615 .11433 L
.66774 .02263 L
.66933 .10471 L
.67092 .02649 L
.67251 .06736 L
.6741 .01578 L
.67569 .09022 L
.67728 .03164 L
.67887 .0999 L
.68046 .0211 L
.68205 .0694 L
.68364 .02176 L
.68523 .08166 L
.68682 .0354 L
.68841 .05758 L
.69 .02934 L
.69159 .09676 L
.69318 .01791 L
.69477 .12498 L
.69636 .03512 L
.69795 .10889 L
.69954 .02417 L
.70113 .08393 L
.70272 .01808 L
.70431 .08062 L
.7059 .03542 L
.70749 .06942 L
.70908 .0256 L
.71067 .13067 L
.71226 .01486 L
.71385 .07095 L
.71544 .03311 L
.71703 .21052 L
.71862 .02865 L
.72021 .13784 L
.7218 .02644 L
.72339 .21455 L
.72498 .02386 L
.72657 .14175 L
.72816 .04215 L
.72975 .13925 L
.73134 .01545 L
.73293 .13306 L
.73452 .025 L
.73611 .06661 L
.7377 .0402 L
Mistroke
.73929 .16925 L
.74088 .02176 L
.74247 .16055 L
.74406 .01966 L
.74565 .19166 L
.74724 .04468 L
.74883 .14225 L
.75042 .02511 L
.75201 .23618 L
.7536 .02677 L
.75519 .07121 L
.75678 .04005 L
.75837 .23789 L
.75996 .03231 L
.76155 .15078 L
.76314 .02401 L
.76473 .05089 L
.76632 .03524 L
.76791 .06553 L
.7695 .03794 L
.77109 .0482 L
.77268 .02239 L
.77427 .14603 L
.77586 .03365 L
.77745 .10656 L
.77904 .04164 L
.78063 .17534 L
.78222 .01939 L
.78381 .09118 L
.7854 .04127 L
.78699 .17838 L
.78858 .03121 L
.79017 .06353 L
.79176 .03445 L
.79335 .23151 L
.79494 .03612 L
.79653 .02078 L
.79812 .03023 L
.79971 .13795 L
.8013 .04059 L
.80289 .15751 L
.80448 .0338 L
.80607 .13577 L
.80766 .02791 L
.80925 .191 L
.81084 .04656 L
.81243 .22498 L
.81402 .03021 L
.81561 .06785 L
.8172 .03083 L
Mistroke
.81879 .23965 L
.82038 .04603 L
.82197 .19268 L
.82356 .03651 L
.82515 .20038 L
.82674 .02794 L
.82832 .22347 L
.82991 .04963 L
.8315 .2384 L
.83309 .0362 L
.83468 .13478 L
.83627 .03378 L
.83786 .17173 L
.83945 .04473 L
.84104 .17145 L
.84263 .03953 L
.84422 .3674 L
.84581 .02763 L
.8474 .26687 L
.84899 .04987 L
.85058 .3297 L
.85217 .03545 L
.85376 .36072 L
.85535 .03654 L
.85694 .43391 L
.85853 .04262 L
.86012 .20547 L
.86171 .03854 L
.8633 .09192 L
.86489 .04152 L
.86648 .31814 L
.86807 .0316 L
.86966 .31897 L
.87125 .0549 L
.87284 .23854 L
.87443 .02655 L
.87602 .36599 L
.87761 .03462 L
.8792 .16618 L
.88079 .05784 L
.88238 .60332 L
.88397 .0234 L
.88556 .53453 L
.88715 .04967 L
.88874 .299 L
.89033 .04077 L
.89192 .15453 L
.89351 .03839 L
.8951 .23502 L
.89669 .03443 L
Mistroke
.89828 .27976 L
.89987 .04576 L
.90146 .33822 L
.90305 .03639 L
.90464 .14944 L
.90623 .03536 L
.90782 .28262 L
.90941 .03908 L
.911 .11315 L
.91259 .03435 L
.91418 .23348 L
.91577 .02987 L
.91736 .1863 L
.91895 .03545 L
.92054 .18927 L
.92213 .03485 L
.92372 .27055 L
.92531 .02919 L
.9269 .33283 L
.92849 .03084 L
.93008 .11285 L
.93167 .0413 L
.93326 .2582 L
.93485 .03369 L
.93644 .19294 L
.93803 .0197 L
.93962 .22098 L
.94121 .04765 L
.9428 .3132 L
.94439 .01835 L
.94598 .34276 L
.94757 .02481 L
.94916 .25024 L
.95075 .03693 L
.95234 .13508 L
.95393 .01953 L
.95552 .28309 L
.95711 .02947 L
.9587 .33221 L
.96029 .02058 L
.96188 .1597 L
.96347 .02287 L
.96506 .20908 L
.96665 .02468 L
.96824 .10166 L
.96983 .02153 L
.97142 .15663 L
.97301 .01881 L
.9746 .44999 L
.97619 .02616 L
Mistroke
Mfstroke
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXM2O3EQQ7rhtz8/uzuwmu/nZhBCEkhxyAIGEFAWUG5yQOHDkskIRyQGC
Qo5IfgCOvALiARDiihA8Bop4BkBwgsF2u3u+qu622x574t2QaGZ72t1dX31d
VV3d9sz7J08fPvj05Omjj09uvPfk5POHjz7+4sa7j5/kVfKcEOceCiGe7Yu8
/KWQv4mXV9nqUbYSYqi/D7JVIoTMVrEQcfl+XNbEUHM1W0khEqi5XtZI2iam
va6VbbBGFgI/yd/y+iwHICJWjqty0d5cuJS/ElUuLpWjDNPpGusU143uHc3Z
4zIbuk7zwgzy905kXYZyHNLhaqjOweRcGxUhV6AcZATBhOQapPW4R0rJcQcO
IxFmTlfwQhDfl01o6KHpJrQET3xww05ktHPf0A5AzAMdl8cUeo1NhnZozVRo
IPCYkKxdD50rZGStomylfclaRcsVcuVZqu8DnPx1e9O6u9kqf79T4lYt4moG
RArNsTypqTckJqwRGgO/puec+NC05G7qmuFqiFgPGanPE3VNv4DNVA9aIYsh
rrIYO8ksv44EtQ/s2oWjpvqkFLlbzUcsCEevIpIFA7vPlDINZ2sSFA3K5BRl
a2oqbdFjZGmwyibRLYtyNWXlv0j3zN9LbYDx4uKeHqTwNh+hGYvSMP/CgmXK
r7i0rpQEFtfiFUj98aZnWG61O/pzoa5qZ2gBdexlEmmSxpwSsNTImCSZpGnZ
Pq3MXYDcWBMsQZHzNsWI112FrFA/8eW6e2tXMyrk6PeamUZnPk8N3jsDhlVZ
mhXYnJV5sQVtB5saVAXbXqrnaOm0hykf4rBR8AeL3rUl+BYkBw3KCglyJDhZ
GzwxR7W6zMLoj7QzSzf9mogJtf8qoqB5zXUoAEuZaGvmRluNyNtf2ZBu/YpI
bPDHHFxk+CSAR3NPmqyZN/xFZehE1vlqZmZ1QtFIPYSOpOYl2bRgbEYbN0FD
eyJc26UeikMsaQhxznVceov5eOydBmIgjvmZojtkVcRJMbIYVStvp4L02D6r
b8m/EVTwuMPMEAIdroV19KfYVVLIlu1q0iWslNU4W5kPN5rIYUVm6SHxdQ5z
4IxhJGUTYu5yOSWhogqXvILamWNGZrWTgPUqRYx0pFprEZUTNbMVjdhSVtYg
0Qll9AaU932miuVY24iWuoSL0zo+lWGoPLaZSLQlHl1JakezOw7VWCgtz/Wm
h6WvVH/uCxISaxyQuDXl900KtTdK59qGyPYl1fs0ziCaZapjjPNoweHa5KPm
bo+ZCIw10Xsby3Bpu0RFRz3E3VB6jh2USOUNkFJMWJLRmZo4gwUY0mvgIx/z
QG9/Irq9oktfCQuVvg3lq2h/19xKcvRgW2ryU2V/ZpwpU9Hs49dzMmPK+vRb
56ihWhoUtwDqdSgfkwQkpvqxtA3dPKYfMQNOrV7xGomtrHM7h+HpuruDyTVh
lSbrXra6CUjuNU+n8paZSaI8EY7rajg2dz78yrpy9jsj0I+sYibXrizWv+jH
OspgJMZN3xs1+sxgCVb6YApz1J9uWsIM6mNBJ85e8etUYocnNWoclojecShg
tmel1DbYmT3GTvTVhJb1H4DYpbXVLgIUCe844LIWvznSaYI/ZSdnVAOp0ybM
Bz7sCLpozkFHsFVS7ea++Z+UKOSWAfpY9cJMy9FtmNLKqxDmPr0qVLIbCPOC
XsCJ+U/gZHq3XhEeU8A4anT5yIk/tvAK3QENbcE1sG6+mKgOYnyb/FkH/YTo
VT/mOXvlR5bvlroeurAyHZ6nntUhrZ3yttTzCIbtcT4Xgu5SJ1RMrLV67NSE
n+uGqXKRwURTDZw2KcagCC6Xy6HnQeWsCv48ozuFYMQ8Miyd9zl12eysMDdb
80QwYw4dW/hZrP6M7mEa4b8OZe31eWs8pVWReZrROwdzxIunE3Jz7Iwm1ABX
sMSfxVhqvWUCO1cCpmdiDl96VMCef7caePPIr8c9p+HU66A6pONAT5zEy78Z
vcS9NHdaKdbDvvG9TVeR2cjgYZrnnXaT35VplY3tMZTPPz+E2SoI4aUOqHAK
79Qh3NOopODRORZVinEqgH2lT7yqM5bpOsZlVg54DOXFpii+bpLM7hLitrYW
RVQ+ZBAif71eSwODP5FBzkbbwGBkSCv8qq3egQFjViNyy3gDVLhvj7oj/LYG
W5JZTwX8j8vGBZH1hYEVlQE67QUQbq4wIOHjIzuhNC00KpJQqGe3GCayH+kd
1EWaWTYcaiysYx7vJu2bbWrBnynXg7XdBDv005d2PLqRY8xQxRbCvqcYrKD0
gB+BgpG6ddhKtQvGFQaYte98ijgfkGtUgpwURnDSZG7icJfuMEH2sxyN2jgZ
M9rgjjnprNlBmCZSjEuHIxiq/lRj29PgeTLDrcZF6x6oOdhgC9s2oE85dNeB
f8S3zdWQ/GlbdJfv4drUHGkhMNyaBCLjmxgnSvcRyzix2scoi41wQs/IIOXP
zm6ClpyhLnvEKt3P+XbGikco2apvqIkB4nkwORwoSya9KH+AdumQKHVZnk2M
P44Il67/afuYHO4bhsacKhX/gxExXBvzAw8XaVQ9Y9nPIGX6eRwADtoI1aFP
umRi6jSvlfwLXFjWyWffhOlL/rNTJ6OaqKE1uADlX1uJiPS7Nf4R/RpDwyHC
EAgObRPrvJ3cBr7YI3sofBEcgY2RvwB8cefNtRQc03q56Is8XeG8J1VD1u+t
wPDHI/3+iMFXtrmTPwggdcq4D9XSeVv+zyGEu3d2DaLQAfiXZj1y7F1ZA5e4
Mecy8FrkkEQa/zGQHLYbGkoMLk9DUTYOGa4VeoQivCZ1SvB3FIFD+hbrJhGS
PoMxhAjydZAXWwAaarYaGHuDAEyTUj6gO3/xZch1Ig/qxGCaUyjJf6egbSrX
G5AmQZuCOW4CMCQTlvBNs9WNNNXlRZi4fujV5d2u2WY4rc57IFZqx93bP6o/
PQwfw079/oKyekLX1Ymsan83d2EJWUCP++0wnfLmYSyODfXZ5ySFr8rhDz2x
94SGjoCBnc/4qnJkxyFzthbXfoDogvL7wDU944jy4j+jYORFQmEWEUm/E+2R
nup80+mGaTtV7ltNrJ9Mo9V58d+QdkNWn1EMUViIjcr3xDMGNcF+gyjfdwVg
6NExsWy7yZCS2T7UBMkhZSYe+cNLTj31/UrGoBcH2lVY1JOuQGrKtxwOaF1U
zt2uz/O4eFpwblGJwCCaWBtdeyRq2P2G0hon86PYgpOvqt9HHUhsVD7vpRLN
gUVJbIQR5QzIdWaMwiMuLGoqp8lLrxWdVgP/8r7+K879B83orOo=\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {-134.614, -2.12044, 2.64061, \
9.88255}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "GetMainIncrement"}]], "Input",
 CellChangeTimes->{{3.4475820221875*^9, 3.44758202359375*^9}}],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"GetMainIncrement", "[", 
          RowBox[{"n_", ",", "m_", ",", "k1_", ",", "R1_", ",", 
           RowBox[{"num_", ":", "1"}]}], "]"}], ":=", 
         RowBox[{"First", "[", 
          RowBox[{"Take", "[", 
           RowBox[{
            RowBox[{"Sort", "[", 
             RowBox[{"Re", "/@", 
              RowBox[{"GetIncrements", "[", 
               RowBox[{"n", ",", "m", ",", "k1", ",", "R1"}], "]"}]}], "]"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"-", "num"}], "}"}]}], "]"}], "]"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[$CellContext`GetMainIncrement],
  Editable->False]], "Print",
 CellChangeTimes->{3.4475820245*^9},
 CellTags->"Info3447603624-5243916"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ShowPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Re", "[", 
     RowBox[{"Take", "[", 
      RowBox[{
       RowBox[{"SortBy", "[", 
        RowBox[{
         RowBox[{"N", "[", 
          RowBox[{"GetIncrements", "[", 
           RowBox[{"#", ",", "0", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
         "Re"}], "]"}], ",", 
       RowBox[{"-", "5"}]}], "]"}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "200"}], "}"}], ",", "All"}], "]"}]], "Input",
 CellChangeTimes->{{3.447581874421875*^9, 3.44758193859375*^9}, {
   3.447581984359375*^9, 3.44758204109375*^9}, {3.447582091984375*^9, 
   3.44758216071875*^9}, {3.447582191328125*^9, 3.447582230875*^9}, {
   3.447582387109375*^9, 3.447582388203125*^9}, {3.44758250640625*^9, 
   3.447582516484375*^9}, {3.447582549859375*^9, 3.447582555609375*^9}, 
   3.447582593296875*^9, {3.4475826435*^9, 3.447582647125*^9}}],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{
  3.447581939765625*^9, {3.44758198646875*^9, 3.44758201190625*^9}, 
   3.447582050453125*^9, {3.447582098109375*^9, 3.447582186265625*^9}, 
   3.447582265609375*^9, 3.44758243459375*^9, 3.447582540921875*^9, 
   3.447582585078125*^9, {3.4475826488125*^9, 3.447582655796875*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ShowPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"GetMainIncrement", "[", 
     RowBox[{
      RowBox[{"Floor", "[", "#", "]"}], ",", "0", ",", "1", ",", "1", ",", 
      "2"}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "200"}], "}"}], ",", "All", ",", 
   RowBox[{"PlotPoints", "\[Rule]", "5"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "1"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.447696326999*^9, 3.4476963303780003`*^9}, {
   3.4476964736400003`*^9, 3.447696505053*^9}, 3.447696733948*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetMainIncrement", "[", 
    RowBox[{"100", ",", "#", ",", "1", ",", "1", ",", "2"}], "]"}], "&"}], "/@",
   
  RowBox[{"Range", "[", 
   RowBox[{"0", ",", "5"}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.4476962624049997`*^9, {3.4476971625179996`*^9, 3.447697172745*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "15.674676924180174`"}], ",", 
   RowBox[{"-", "15.529105269098492`"}], ",", 
   RowBox[{"-", "43.31515060133018`"}], ",", 
   RowBox[{"-", "60.613405130739324`"}], ",", 
   RowBox[{"-", "81.73015560903863`"}], ",", 
   RowBox[{"-", "106.10480728221613`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.447696037648*^9, 3.447696066666*^9}, {3.447696202443*^9,
   3.447696222766*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ShowPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"GetMainIncrement", "[", 
      RowBox[{"100", ",", "0", ",", "0.001", ",", "#", ",", "2"}], "]"}]}], 
    "&"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.447583573625*^9, 3.447583601796875*^9}, 
   3.447583640890625*^9, 3.447583674390625*^9, {3.447583785015625*^9, 
   3.44758378803125*^9}, {3.447583925484375*^9, 3.447583925859375*^9}, {
   3.4475840315*^9, 3.447584032515625*^9}, {3.44765739434375*^9, 
   3.4476574341875*^9}, 3.4476580153125*^9, {3.447660354*^9, 
   3.447660354109375*^9}, {3.447660660015625*^9, 3.447660665640625*^9}, {
   3.447661609484375*^9, 3.44766160990625*^9}, {3.447661735625*^9, 
   3.447661737296875*^9}, {3.44766999240625*^9, 3.447669992765625*^9}, {
   3.447670041890625*^9, 3.447670048875*^9}, {3.447670170578125*^9, 
   3.44767017746875*^9}, {3.447670291953125*^9, 3.447670316078125*^9}, {
   3.447692014251*^9, 3.447692016543*^9}, 3.447694342533*^9, {
   3.4476949774969997`*^9, 3.4476949864820004`*^9}, {3.447696390052*^9, 
   3.447696398359*^9}, {3.447696526502*^9, 3.447696528755*^9}, {
   3.447696838415*^9, 3.4476968391730003`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{21.731097565018718`, 0.37475018089391676`}, {
     23.049604469062213`, 0.}, {25.72702316287466, 0.}, {28.4044418566871, 
     0.}, {33.75927924431198, 0.}, {44.258872713374195`, 0.}, {
     55.64838487624885, 0.}, {66.27781573293595, 0.}, {69.15765312056084, 
     0.16508947175904506`}, {72.03749050818573, 0.}, {74.91732789581062, 
     0.}, {77.79716528343549, 0.}, {80.6244823445135, 0.}, {83.45179940559149,
      0.}, {86.27911646666948, 0.}, {89.10643352774747, 
     0.16009139616273096`}, {91.74373026227858, 0.15864197907200858`}, {
     94.38102699680968, 0.}, {97.01832373134079, 0.}, {99.65562046587189, 
     0.}, {99.74171259940391, 0.}, {99.82780473293595, 
     0.11392032254952156`}, {99.91389686646798, 0.}, {99.999989, 0.}}], 
    LineBox[{{13.696958142102355`, 0.37475018089391676`}, {
     14.447287407984216`, 0.}, {17.314726428343548`, 0.}, {
     18.633233332387046`, 0.37475018089391676`}}], 
    LineBox[{{3.5740895142470763`, 0.37475018089391676`}, {
     3.6449703469062213`, 0.}, {4.159431885931864, 0.37475018089391676`}}], 
    LineBox[{{8.420427501693021, 0.37475018089391676`}, {8.934889040718664, 
     0.}, {9.627001546324037, 0.37475018089391676`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{20., 0},
  PlotRange->{{1, 100}, {0., 0.37475018089391676`}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.447695112332*^9, 3.447697103352*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"incrs", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"GetIncrements", "[", 
       RowBox[{"100", ",", "2", ",", "0.01", ",", "300"}], "]"}], "]"}], ",", 
     
     RowBox[{
      RowBox[{
       RowBox[{"Re", "[", "#1", "]"}], ">", 
       RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"Re", "[", 
    RowBox[{"incrs", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
    "]"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "0.01`", "]"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Point", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Re", "[", "#1", "]"}], ",", 
            RowBox[{"Im", "[", "#1", "]"}]}], "}"}], "]"}], "&"}], ")"}], "/@",
        "incrs"}]}], "}"}], "]"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "300"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.005", ",", "0.008"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    RowBox[{"1", "/", "GoldenRatio"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.4476927809639997`*^9, 3.447692815773*^9}, {
   3.447692901808*^9, 3.4476930759700003`*^9}, {3.447693132356*^9, 
   3.4476931365699997`*^9}, {3.447693175376*^9, 3.4476932638780003`*^9}, 
   3.447693471102*^9, {3.447693614231*^9, 3.447693664019*^9}, {
   3.4476942825950003`*^9, 3.447694295703*^9}, {3.4476950147209997`*^9, 
   3.447695033913*^9}, {3.447695128344*^9, 3.447695221153*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.23591260562814367`"}]], "Print",
 CellChangeTimes->{
  3.447692751142*^9, {3.447692782959*^9, 3.44769281726*^9}, {
   3.447692903291*^9, 3.447692935648*^9}, {3.447692989266*^9, 
   3.447693077508*^9}, 3.447693138225*^9, {3.4476931770690002`*^9, 
   3.447693251293*^9}, 3.447693325613*^9, 3.447693502487*^9, {
   3.447693641151*^9, 3.447693666041*^9}, 3.4476940742139997`*^9, {
   3.4476942872019997`*^9, 3.4476942977720003`*^9}, {3.447695114032*^9, 
   3.4476952244119997`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {PointSize[0.01], PointBox[{-0.0879160901661109, 0.004206849799232552}], 
   PointBox[{-0.23591260562814367`, 0.005678434361184132}], 
   PointBox[{-0.4491230710793544, 0.006208534701402746}], 
   PointBox[{-0.7271764822048333, 0.006357064246070125}], 
   PointBox[{-1.0694937994714204`, 0.006467992893945459}], 
   PointBox[{-1.4753992527596267`, 0.006512741380377167}], 
   PointBox[{-1.9439907219276573`, 0.006553791327532949}], 
   PointBox[{-2.474357269086176, 0.006572663820245416}], 
   PointBox[{-3.0653036976467645`, 0.00659234043727807}], 
   PointBox[{-3.7157161715874953`, 0.006601673501292105}], 
   PointBox[{-4.424126146555179, 0.006612647570056247}], 
   PointBox[{-5.189243489469087, 0.006617614462619478}], 
   PointBox[{-6.009355886947362, 0.006624406183953414}], 
   PointBox[{-6.883016384045722, 0.0066270610359982106`}], 
   PointBox[{-7.808315216672269, 0.006631626313369827}], 
   PointBox[{-8.783650526471192, 0.006632896269851802}], 
   PointBox[{-9.806995473784257, 0.006636249126106683}], 
   PointBox[{-10.876547187955188`, 0.006636548962616285}], 
   PointBox[{-11.990345259841138`, 0.006639407100442207}], 
   PointBox[{-13.146167577757785`, 0.006638740384714509}], 
   PointBox[{-14.343094748456162`, 0.0066425356374866145`}], 
   PointBox[{-15.428091306995611`, 0.0074066737822347725`}], 
   PointBox[{-15.574105439836432`, 0.006632387965903638}], 
   PointBox[{-16.844468813246845`, 0.006637960613467828}], 
   PointBox[{-18.149508961092387`, 0.006641047514762461}], 
   PointBox[{-19.48419095165692, 0.006640558840271648}], 
   PointBox[{-20.849841348360737`, 0.006641244651694603}], 
   PointBox[{-22.241526935071303`, 0.006640997496204312}], 
   PointBox[{-23.659820453133186`, 0.006641126999456212}], 
   PointBox[{-25.100012621915276`, 0.006640891701824182}], 
   PointBox[{-26.56266065800449, 0.006640747466758823}], 
   PointBox[{-28.043049355448233`, 0.0066405039874119194`}], 
   PointBox[{-29.541908716542128`, 0.006640155889424468}], 
   PointBox[{-31.054424959132362`, 0.0066399047320793705`}], 
   PointBox[{-32.58160403329428, 0.006639410609351361}], 
   PointBox[{-34.11847522183118, 0.006639149761429677}], 
   PointBox[{-35.66639839843339, 0.0066385449125325}], 
   PointBox[{-37.22019409875646, 0.006638261521825941}], 
   PointBox[{-38.781647555197, 0.006637572327043538}], 
   PointBox[{-40.34531362256028, 0.006637285266690618}], 
   PointBox[{-41.91347759412494, 0.006636499158594754}], 
   PointBox[{-43.48035863767363, 0.006636231217806916}], 
   PointBox[{-45.048829150809055`, 0.006635347775709034}], 
   PointBox[{-46.612680419244356`, 0.006635104717311185}], 
   PointBox[{-48.175483895563836`, 0.006634113868915118}], 
   PointBox[{-49.73047453793958, 0.006633921173929646}], 
   PointBox[{-51.28208205927585, 0.0066327900115397895`}], 
   PointBox[{-52.82279395150325, 0.006632686931412413}], 
   PointBox[{-54.35815272761297, 0.006631362993249429}], 
   PointBox[{-55.87958845328716, 0.006631407638984083}], 
   PointBox[{-57.39423276544979, 0.006629779748510121}], 
   PointBox[{-58.891898284321194`, 0.006630124205667721}], 
   PointBox[{-60.382468468628915`, 0.0066279413177426855`}], 
   PointBox[{-61.853075282740306`, 0.00662901285057936}], 
   PointBox[{-63.321837625651504`, 0.006625640223187163}], 
   PointBox[{-64.78300648331631, 0.006635668286870396}], 
   PointBox[{-65.93573069228222, -0.12503862759298343`}], 
   PointBox[{-65.93612194031192, 0.1381068295383014}], 
   PointBox[{-67.5314528395656, 0.006628015828548105}], 
   PointBox[{-68.92347351230931, 0.006628888838001641}], 
   PointBox[{-70.2939820816056, 0.006624120400057474}], 
   PointBox[{-71.63767154211861, 0.00662494452464832}], 
   PointBox[{-72.96048114385532, 0.006622027854237346}], 
   PointBox[{-74.2593286110502, 0.0066223481065948355`}], 
   PointBox[{-75.53481883382354, 0.0066199395980466105`}], 
   PointBox[{-76.78638410219646, 0.006619897495831396}], 
   PointBox[{-78.01237620305521, 0.006617681402619528}], 
   PointBox[{-79.2138593225497, 0.006617340559403761}], 
   PointBox[{-80.38778438648114, 0.006615163542194794}], 
   PointBox[{-81.53638433124047, 0.006614525988361379}], 
   PointBox[{-82.6555973177082, 0.0066123027007361996`}], 
   PointBox[{-83.74854769564622, 0.006611353894500234}], 
   PointBox[{-84.81039235396095, 0.006608988021068619}], 
   PointBox[{-85.84495100010173, 0.006607666155127742}], 
   PointBox[{-86.84676970867714, 0.006605090645673513}], 
   PointBox[{-87.82020177185262, 0.006603308685741816}], 
   PointBox[{-88.75933140621345, 0.0066004096975939034`}], 
   PointBox[{-89.66889486003555, 0.006598052060234696}], 
   PointBox[{-90.54266091196646, 0.006594700893133994}], 
   PointBox[{-91.385597066586, 0.006591591114869132}], 
   PointBox[{-92.1913099407528, 0.006587597405474673}], 
   PointBox[{-92.96483951035614, 0.006583501030549161}], 
   PointBox[{-93.69979384927677, 0.006578599520279538}], 
   PointBox[{-94.4011174458811, 0.006573164393623954}], 
   PointBox[{-95.06259268537568, 0.006566960919733821}], 
   PointBox[{-95.68889237233797, 0.006559682154988478}], 
   PointBox[{-96.27414935917147, 0.006551570202748311}], 
   PointBox[{-96.82258377149287, 0.006541662126978585}], 
   PointBox[{-97.32884749022229, 0.006530680202989287}], 
   PointBox[{-97.79652653311716, 0.006516848295252003}], 
   PointBox[{-98.22093511254947, 0.006501357505612671}], 
   PointBox[{-98.60484903458878, 0.006481265635839114}], 
   PointBox[{-98.94433604833, 0.006457960484426082}], 
   PointBox[{-99.24119454294274, 0.006426379231590597}], 
   PointBox[{-99.49223856948134, 0.006386387778833305}], 
   PointBox[{-99.69810131717462, 0.00632568129979452}], 
   PointBox[{-99.85602926650819, 0.006230884073243793}], 
   PointBox[{-99.96432943450931, 0.006136606760608698}], 
   PointBox[{-100.04447417654309`, 0.008908100488292735}], 
   PointBox[{-102.00364859283187`, 0.009973193428747633}], 
   PointBox[{-128.7414723645081, 0.005805005974713703}], 
   PointBox[{-139.6556785177301, 36.50172140200299}], 
   PointBox[{-139.6559466326942, -36.48164679244671}], 
   PointBox[{-166.99739379890758`, 0.005876699537896566}], 
   PointBox[{-177.7575415837246, 0.0015654307191098988`}], 
   PointBox[{-177.8125291645557, 0.006404758159685477}], 
   PointBox[{-177.8607031145476, 0.0066017468312583785`}], 
   PointBox[{-177.92556260899326`, 0.006634191957153416}], 
   PointBox[{-178.0062193190376, 0.006654365996872466}], 
   PointBox[{-178.10367701273938`, 0.0066496783826115345`}], 
   PointBox[{-178.215495038636, 0.006663157023800563}], 
   PointBox[{-178.34468145462282`, 0.006651275959965945}], 
   PointBox[{-178.48593317738897`, 0.0066662117188408115`}], 
   PointBox[{-178.64575700253482`, 0.006650024429469719}], 
   PointBox[{-178.8142882047771, 0.006668056540885607}], 
   PointBox[{-179.0035192086752, 0.006647716157635022}], 
   PointBox[{-179.1967360432171, 0.006670000795028972}], 
   PointBox[{-179.41416413670305`, 0.00664445132781911}], 
   PointBox[{-179.62893604549816`, 0.006672957561305043}], 
   PointBox[{-179.87367566610757`, 0.006639805278937727}], 
   PointBox[{-180.10600598851468`, 0.006678186744727519}], 
   PointBox[{-180.37821010041466`, 0.006631899198482271}], 
   PointBox[{-180.62215646958475`, 0.006689315127290073}], 
   PointBox[{-180.9253430941563, 0.006613290162045985}], 
   PointBox[{-181.16847285257253`, 0.006719025097619265}], 
   PointBox[{-181.52464868300729`, 0.006516003568009578}], 
   PointBox[{-181.70820317613996`, 0.0068930211349837464`}], 
   PointBox[{-182.07873904904795`, -0.12716030864691644`}], 
   PointBox[{-182.07893145880814`, 0.1408027163413995}], 
   PointBox[{-182.4740865640462, 0.006570792035949786}], 
   PointBox[{-182.66624389515982`, 0.006749332499809331}], 
   PointBox[{-183.06838673907626`, 0.006598463741735475}], 
   PointBox[{-183.33843527477578`, 0.006723503848284771}], 
   PointBox[{-183.7141118577282, 0.006611718081364229}], 
   PointBox[{-184.00894250605677`, 0.006729261255510494}], 
   PointBox[{-184.37790572096554`, 0.00661935425550843}], 
   PointBox[{-184.6851890689154, 0.006758476449851869}], 
   PointBox[{-185.04770554216424`, 0.006630718356207767}], 
   PointBox[{-185.35889700478538`, 0.006844787488353629}], 
   PointBox[{-185.69970762979574`, 0.006693709373990231}], 
   PointBox[{-185.99477252901434`, 0.007106938410942913}], 
   PointBox[{-186.26586841363653`, 0.006783675636760559}], 
   PointBox[{-186.57025094370613`, 0.006995836827162822}], 
   PointBox[{-186.8574096650397, 0.006572924068101839}], 
   PointBox[{-187.2182782776306, 0.0067899707552760745`}], 
   PointBox[{-187.5255252668451, 0.006557307520044205}], 
   PointBox[{-187.8991797288684, 0.0067360829882801496`}], 
   PointBox[{-188.2072841266936, 0.006561081136284508}], 
   PointBox[{-188.58502225243035`, 0.006724818245755035}], 
   PointBox[{-188.88581121539676`, 0.006554386139862554}], 
   PointBox[{-189.26767660048932`, 0.006732441941943358}], 
   PointBox[{-189.55229640038277`, 0.00653035025468382}], 
   PointBox[{-189.94323809038548`, 0.006767215022679505}], 
   PointBox[{-190.19329169949242`, 0.006459095368803324}], 
   PointBox[{-190.61005328830908`, 0.006914848378166134}], 
   PointBox[{-190.76901376863287`, 0.006199707157038116}], 
   PointBox[{-191.24462208049206`, 0.03277207081830933}], 
   PointBox[{-191.24644509665305`, -0.019750256629474442`}], 
   PointBox[{-191.7228830738038, 0.006759955421800052}], 
   PointBox[{-191.889393842646, 0.006387665150348863}], 
   PointBox[{-192.29370742620674`, 0.006735565144170995}], 
   PointBox[{-192.50874972502967`, 0.006472827665451793}], 
   PointBox[{-192.8854426979996, 0.006739942782756361}], 
   PointBox[{-193.1046472740307, 0.006474240941853415}], 
   PointBox[{-193.4719085278877, 0.00677492996210155}], 
   PointBox[{-193.66938615084857`, 0.006408659815104435}], 
   PointBox[{-194.04993106958952`, 0.006969454138182195}], 
   PointBox[{-194.1735114731343, 0.006090229913305353}], 
   PointBox[{-194.58569505393208`, 0.06747739271311867}], 
   PointBox[{-194.58656913251093`, -0.05463652681746646}], 
   PointBox[{-195.0020783495462, 0.006957342371788818}], 
   PointBox[{-195.06547881237384`, 0.006024286276123689}], 
   PointBox[{-195.43954118176327`, 0.0067775207922436565`}], 
   PointBox[{-195.57508838418445`, 0.006285255625673896}], 
   PointBox[{-195.91384423962427`, 0.0069421621405255}], 
   PointBox[{-196.01744055125238`, 0.006014337905741647}], 
   PointBox[{-196.36393110178756`, 0.06200010279480231}], 
   PointBox[{-196.36493269086017`, -0.04938774352916278}], 
   PointBox[{-196.7153925974571, 0.033271061781358864`}], 
   PointBox[{-196.71644201598875`, -0.020592667432257506`}], 
   PointBox[{-197.05130339169702`, 0.007039279557922406}], 
   PointBox[{-197.1106743190538, 0.005589467284093281}], 
   PointBox[{-197.39585256450783`, 0.056703133758895366`}], 
   PointBox[{-197.39671482484673`, -0.04462627033882574}], 
   PointBox[{-197.6640632763558, 0.028792071230708018`}], 
   PointBox[{-197.6647429391031, -0.016782023151441856`}], 
   PointBox[{-197.90945037653873`, -0.016468803512220603`}], 
   PointBox[{-197.91306658570608`, 0.02830330418846541}], 
   PointBox[{-198.00141823961036`, 0.0028600578013109903`}], 
   PointBox[{-198.16527164785342`, 0.051019767156177474`}], 
   PointBox[{-198.16682084532823`, -0.03761140174320442}], 
   PointBox[{-198.39607348033942`, 0.06241722945919274}], 
   PointBox[{-198.39726072048174`, -0.04678811919102275}], 
   PointBox[{-198.67009056641086`, 0.07916993317386341}], 
   PointBox[{-198.67109660192432`, -0.06165771157703339}], 
   PointBox[{-199.02340719837778`, 0.11773334837076352`}], 
   PointBox[{-199.02418567575853`, -0.09869573993099905}], 
   PointBox[{-493.81392957812284`, 0.01315694803314366}], 
   PointBox[{-797.8412541307728, 0.00025485331054225823`}], 
   PointBox[{-2067.4101107646798`, 0.010358226033978405`}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{271.1999999999974, Automatic},
  PlotRange->{{-300, 0}, {0.005, 0.008}}]], "Output",
 CellChangeTimes->{
  3.447692751201*^9, {3.447692783024*^9, 3.4476928173199997`*^9}, {
   3.447692903349*^9, 3.447692935725*^9}, {3.447692989326*^9, 
   3.447693077568*^9}, 3.447693138285*^9, {3.447693177131*^9, 
   3.4476932514*^9}, 3.4476933260039997`*^9, 3.4476935027939997`*^9, {
   3.4476936414560003`*^9, 3.44769366616*^9}, 3.447694074382*^9, {
   3.4476942873120003`*^9, 3.4476942978859997`*^9}, {3.447695114138*^9, 
   3.447695224519*^9}}]
}, Closed]],

Cell[BoxData[
 RowBox[{"Sort", "[", 
  RowBox[{
   RowBox[{"GetIncrements", "[", 
    RowBox[{"300", ",", "1.", ",", "10000"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Im", "[", "#1", "]"}], "<", 
     RowBox[{"Im", "[", "#2", "]"}]}], "&"}]}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell["\<\
\:0412\:0438\:0437\:0443\:0430\:043b\:0438\:0437\:0430\:0446\:0438\:044f \
\:0441\:043e\:0431\:0441\:0442\:0432\:0435\:043d\:043d\:044b\:0445 \:0444\
\:0443\:043d\:043a\:0446\:0438\:0439\
\>", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ewvr", ",", "ewv\[Phi]"}], "}"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Partition", "[", 
       RowBox[{"#", ",", 
        RowBox[{
         RowBox[{"Length", "[", "#", "]"}], "/", "2"}]}], "]"}], "&"}], "[", 
     RowBox[{"GetEigenWave", "[", 
      RowBox[{"100", ",", "1", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}],
    ";"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintRange", "[", 
    RowBox[{"Re", "[", "#", "]"}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"ewvr", ",", "ewv\[Phi]"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintRange", "[", 
    RowBox[{"Im", "[", "#", "]"}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"ewvr", ",", "ewv\[Phi]"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.44758415725*^9, 3.447584177546875*^9}, {
   3.447584209609375*^9, 3.447584242515625*^9}, {3.447692575142*^9, 
   3.447692581711*^9}, {3.4476926152*^9, 3.44769265765*^9}, 3.447692704722*^9,
    3.4476927393789997`*^9, 3.44769459334*^9, 3.447694785598*^9, {
   3.44769608737*^9, 3.447696159776*^9}, 3.4476970542720003`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Main eigen value is \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", "15.529105269098492`"}], "+", 
    RowBox[{"0.5488437960574384`", " ", "\[ImaginaryI]"}]}]}],
  SequenceForm["Main eigen value is ", 
   Complex[-15.529105269098492`, 0.5488437960574384]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.44758416996875*^9, 3.44758417875*^9}, {
   3.447584210515625*^9, 3.447584243421875*^9}, {3.4476925767799997`*^9, 
   3.447692582966*^9}, {3.447692622383*^9, 3.447692659157*^9}, 
   3.447692705936*^9, 3.447692740774*^9, 3.4476945945299997`*^9, 
   3.44769478681*^9, {3.4476960899849997`*^9, 3.447696162597*^9}, 
   3.447697106858*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.228999999999991`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.44758416996875*^9, 3.44758417875*^9}, {
   3.44758421053125*^9, 3.447584243421875*^9}, {3.447692576782*^9, 
   3.447692582968*^9}, {3.447692622385*^9, 3.447692659159*^9}, 
   3.4476927059379997`*^9, 3.447692740776*^9, 3.447694594532*^9, 
   3.4476947868120003`*^9, {3.447696089987*^9, 3.447696162599*^9}, 
   3.4476971068599997`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9lAtQVFUYx1ckI1wSoQgGnJY3CiqPWHkE/PcBLKA8ll3YBZaUMGhdTAyI
EJhFniKIgPiadhKniWAqnoI8JjRUlNKmYIEKISN0LEEmIVwJrIbvdmfu3Pnd
//nNmXPO9x3rpPfE+/VYLFbyv+9/37VnPsA58bW8xpS4fvoB9zb7S6MqCbEB
5ENbZatpAmJjdG1pKtsX7B6wxq+gUc9XIVVJic3hevH8Od7q28RWGO/csPD8
WhoxB61Dv9qmTL1PbIM0Eduwfiyb2A4dGWFVV9vziB2Qe/iJvb1bAbETkkZO
CfcfKCTehjJN+2hBUTGxCxr0P5pn55QS74CFa07+H6HHiF3hI5U/WrdUTuwG
c7Z082x+BbE7Gj4orhycriT2gLP41OZlhyriN+CvuxXwsv1JYk/8KbjWn9rA
MBfd8bkriZbVxLswbNv9tLeAYS8MW1pb4GeGvRHTPCX/2KmG2Ac/JNzoUSsZ
9kWnicmx/HqG38SBoWFnxzsM+6FZU89dnWfYH9snnp3JM6wlDoBjW+WgmSXD
QGbjmWkPW2I1sK04q8OLYRYPW+e/rSlkxqt50Dbrdh5kMzkf/NIafvhfNJ+a
D15BhUXWj8z8AvBMzSw8O5lcAOEFW7vxCiYXIluQudioYHIh7ttVKJ/8v/5A
vBDf/PXyHO2POhAzD24PG7Qw+xUEZfZV7lsqJg9CXIunim/H5MFIMecvL4zR
eaiD4dl0tvxyKXM+IpQHbli87cHkIqhEN9t/v8ycbwhql9ZJJtYTq0NgpPcw
aU50gvJQ6Eby/TRlVB/qUGh9zDclDzD1E4brja2jfbrjlIfBsbouleNCzNqN
Hd8NqDbEU/2pd6P14ZG4mRKmPveAvRHp7i1llO/BLmNN874xpp7Dwf9teXDm
7xLKw7E+sdvU1ZqYFQHt571FLULqB3UEHnG66rQpRZRHQncuwpt9nPoHkXCe
DbjZ/+VRGh+JcZMv5uTD1G9XImG8MHiWr1OTH4Uiw8nJKQ4xoqCRzd5zrssn
Pwq3Jt30T8zmkh8FfvBn73wadoR8MUQ5QSuuLR+SL0ZeapFgxpL6Xy1Gz91X
TbKqssgXQ2Y7kVG9MZP8aNRGcwt+OUn3B6JxxV3r8iLnMPnRiMvxtP+k+xD5
0ej8ZiCivu8g+RKMtHl3YYuKfAkSeBwp//S75EugXxLg2+mUQr4EXKul9Ava
ZPKl6Jkw7XiqSSJfipXV8u1NR/eSL4Xy9dM5Di8pyJciXXAxwzBETn4MEkoU
2WU36L5EDPZqYu8YFYrJj4HBzv758efh5MdAYX++7VJuCPmxeKw/PXQ/X0h+
LPwkJr2pBiA/FlVcU+Wqpxf5scjrXDFQHnIjXwb5g7uWGcWO5MsQbvM9u7vP
inwZbBStcZFfGZEvQ0erNOqnx4v+a74cZve04mcu1/3/AWsFvxs=
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{0, 0},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9lAtQVGUYhjexBAWjAZJhQQHBIBHRBRGFeLkvK5dd2GVhhwSNHUEylbhU
EpwUlbVAJdaGkrsEIjeNq3KTGUDJScQLJTjJbcERDbTGSMVq/H7OzJkzz3nn
+WfOf97vt9i5N0S5iMfjxfx3//98fc24S5NbRMV2Ce70Al/e/GFUER9KrI2t
K4tcrJwTOl6zPpRnO4dOTh8lNoTmQ5e2hohcYmNE5v1tLXXIJzaFXsSL2Drt
UmJz2Iy7BbySlxNbIiDQzOiX+HPEVlh52aBNy7GWeA38tmfmKaTniW1wL21O
aTJ+gfh9NHRtjCkT1RPb4XHzPY9bxxqI7aHkBhTiikZiB6h0TXUNy5uIN+BB
uu1tva+biTfilI5R0ai8hVgAixOT/D79i8SOeFLfnZjezNgJ1t5RvZBcIt6E
9Y/83H4dZuyMA6vF+ZWRrcSb0eRY/O6VG4xdMG37udZL1zbiLSiyC3AZKWC8
FQmpnO3EM8auQPmV3EhhO7Eb1Es8J4+cYPwBMocLD6n7GbvjnxW14XXaHcTA
3bS1q+Y2E3OA6ukOddYOlnvArO0QT3WQ5R5IGYm1e/M0yz2h57TYkF/Dck88
vPFMPNbMci+U1FnuSm5luRdaHfvnphdyb8xk2T+NWvC9sWx7UOnUwvo+4PGb
fivKYLkPWqN9n5coWe6LS2NuRkvBcl9Ib/75aNaA5X64I483SBmh7+f88Jlm
bLKxgu2HEN+ov626HsdyIXYuST9234rl/riYfypP5y7tN+cPk3ZrTbyK7b8I
RV/VJ9oKWC7C1Hyst3KQ/c9tsFTxxF7JxNw2SApTs6beZnkAPm5RT39xhvrB
BWDcWEdq4cj6EgiXrlv5Wh3ULy4QPcuTckQ+rG9B4O93HlvVS/3kgqDZUru6
xpv1NRgK/cgu83bqMxeMt9xyeGcErN9i7BecfxBTRv2HGE6tzf4nDYg5MTxe
eZbK02heOsW4ljpjNTnB5kmCxmlZwV4RMSS4dmdfokUVzR8nwc8vq9XrlhF3
SuDglL2ne9dP5IdAcf/xoEkXzS9CkLH7DcNoE2IuBFFHnjf27qN57wyB2YvD
BRnddeSHou/h7OhVY2KEIpU7kKO+XUN+KIajJ+KSUqrJD4VJQLvg+xVV5EvR
M/DJ0O7GSvKl0CwSCoKkZ8mXwrb28GDlLJ1PnVIo4n3fmcz+kXwZwhszW2Lt
ysiXwXPUyVTdR+cbJ0OauXCoP66EfBk05qYD6UuLyQ9DxvT8rI6ikPww/GFv
n5NRepr8MLwnHfDY8CSP/DBU89bJrvt+R74cunzBcX4JnbeQ4/iFSov+xTnk
y9H90fpc0e/Z5MthUNdSV9GjIj8cBjau1cLLGeSHY3nyjG1ySTr54VjTNK+/
568k8sOhDPY/J1wbR34EDiZ8ejVoU3DHvxXtAJM=
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{0, 0},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{{3.44758416996875*^9, 3.44758417875*^9}, {
   3.44758421053125*^9, 3.447584243421875*^9}, {3.447692576782*^9, 
   3.447692582968*^9}, {3.447692622385*^9, 3.447692659159*^9}, 
   3.4476927059379997`*^9, 3.447692740776*^9, 3.447694594532*^9, 
   3.4476947868120003`*^9, {3.447696089987*^9, 3.447696162599*^9}, 
   3.447697106884*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9lAtQVGUYhjeoRUlubswwCAnFHQFXVxRYlpflJvfdZWE3JGhQiZCLIAFj
QQdBNFiQWBAD5CYEiCGFWEgiTtwSRCwpIUxTSUsqYJAZGNNs/E5n5syZ57zn
OXP+833fbx6bIturweFw9jw//7u+OOY9/N2FM7P7D1yiGxD8UG7IM0wmXoOr
bT/mpDdFEevD4EpPQ9VYgMcLfg2Jy5ynEUwKsRHOhdyovBafTWwCy0KO3W+z
h4nNkFc1oDsnLCZ+A5bTS5dyfMuILVAiKOsZm6ogtgJz80HjB4GfEtuA/ya3
P7qshtgOnz80KotprSPehKL2OxcXvRuIHfFXjXNCc1Uj8WZsz2525k+eIuaj
17BDpfW4iXgLuhtX+pZXm4m3Qr+D+4XWw8+IBUgetsjYfbGFeBvEuR6/enzY
SuwM9eGgu9ct24i3Q7/Puti7l+UdkIuefd3lfprYBZEz4362HSy7YkyoDKrR
aSd2w8cmIUkLUSwLMRIi035Sw7I7ropbRz4aZ1mEtCJt/y2LLHvApLb31jdr
zhAD5VJzm771xAyQbTVcOqrP5p5Y15pcnqbJ5p5QLg/Mujxi3yeGQdbmuMYR
YkYMzYqqFev/v8cLTpsaXMRxbO4FHq9i3V5rNvfG+IDC4qU7tF7GG7Fu3fH5
pez6fWB/VymJdGFzH0yYvmw/N83+P1/gGmIa3idmfOE+lHjy9lo294Ot+sza
V09QPRg/OPJ40QVmbH12wnyXIbfrFNWP2QmfamfBgjlbT3/Yq7oW66qp3ow/
EkN+cjI1YOsfgMx3i4YGD1F/MAHI8a3PezzP9k8gYr51tdGKImYC4Wo0+J58
gO23IORyz/+9zY6YCYLWaEaoZgnbn8HAsxYub576lwmGs//TAxckbD+HoEf9
+3hwZz3lIeCbCl430yPmhKJdI38X9+daykNR1W+vdazyJOUSuBVmtmbJaX4g
Qcrl/X9Gr6+m5yXIuO3UOX2d5q1fAl35vlu56hPkS2Hg0Bz5QFFJvhTiePO5
qo3HyZfifOCose2jcvKlWNjqYLyhV02+DEeyqzuWj9G8QwbX5k6eKOET8mXI
K3a+lxJQSr4MXyU5rOjElpAfBnnG91NLQhX5YVAJU88etCokPwzHF00vZ288
Sn4YJif67G7YFJAvx2Dcha5Ar3zy5ZD1NbS0pRwiXw5b3aXO0x0M+XJwSx0T
X9HIIT8cZyPcU3vGD5IfDlnOXFL3QCb54VDd1zO3n00nPxzD6dM3Xfhp5Efg
O+lK4UwY7ZeIgLLQrTG/PoH8CHzpWbvqEhBH/vM81VfVJIslX4GhczoOqoy3
yVegOF7NWdJWkK9AxahR7R97pOQr8ERUJ9ug40++EqJ/jga+cw/kK6HfuyOr
oE5AvhK7U8oH5XJL8pUwvjKhur9Pj/y3sDo1OVvB/0X0L+YTv18=
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{0, 0},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9lAlQVHUcxzEYR5FDMEGDRhSG5IhLWA5JvixyLLCw7HIskAkEAmqiiBQE
zoLCEKEEKXdgLQEqR0gmICWyBBSnzVJWKHGVEuhGoGJkx/j782bevPm8z3ze
m3nv9/9vj0oQxrygpKQU/d/5//X5oXDJS03VSW0S36AbaB0ousw54ES8Dv0K
/pfSVrHLc94InVD+XJrzUeIXYTmuIb9T+S7xFmS5tT9MHjpFrI+d6UfWOsjf
IzaA9FhR+pn6fOIdSPruUcpcaSGxEd7oC3vdzPQ8sTF+t5nnN2cUE+9EX5H6
SnxVKbEpXq7dJPfKKic2h9T6+qyT/UfEFvD56f59z/ZKYitsW3pkuLD+ArE1
bNpKj7dVM7aBRk14wRPLj4l3gaPsZTHVwNgWorCW6hCDT4jtoLE0U303hzEH
dwy+T2q+x9gel2eXp2WQEjug/4FX33ABY0csm2vFRIwxdsKBH378bcygmng3
xi9yxQX7GTvjzd2jM1dLGL+G9Acz5UkDjPdA9VZ//fxTxi44rj1V6GT0KTEQ
ty/e86gXsQTYVnn2mwuxzLvCukVmPJbBvCssdy2YWhczz0W5qHK0oZZ5Lma/
Dqzb38K8G3aYjYyJ2pl3Q3Ha1rziDub3QhaVNWC/6vdisXvLt66rvTtG8w/9
3LX6fHfUB5qc61t9vwe4TwZHI04x74G57Im7pQeZ90SL87g4k8+8J/w9ZqJN
zJn3wgll89rKtcx7wfCkIGBhjH0vHrp1M8zsmoglPKhFl1e8k868N7p93ZqH
PJn3Rqnt8nZvDeZ9YLCeK342Qv9T4gMPlYXEf/LZ//WF8rKUF+XDvC96eLEJ
zsrM8/Gq3iXb6ms0PxI+Dk8dqvssjs2TH2p6ZCUpOsz7QSnuZqHuTTaf/liR
NU5I44gl/rjydvsZB3XmBeDYaIUpGmneIUBX+cGuX/nEEgFys/QVCfKq59wp
QH5cY8eadcRKAYg3PKb+FYfWEwKg+0eheCKC1pskAFcq2vddzK6gPgDz1wL0
gurY+hTCamSxy6injHohom9pN4T+QutZIoTa7VYfzuMS6oUY1C7Wf6ZKrCTC
W3a8siU92g8ggmJy0jzKtIh6ER6f792ay6H9o1OEjZPyxM9xjvpAdO65p2LC
+5D6QLhH9rpbCWj/kQSiSvOw66bgAuoDIdPpyNYL/4D6IJSvJL5ifOMs9UGI
9A3LzOnNoz4I47Ka8D+Hc6kPgoWquXDldg71wTCebnNynMqmPhh+mZsXXR6e
pj4YgktfONX8nUl9MN6fH05fo5lBfQia3K8nD3qepD4EeUOiBXlKKvUhUFka
jOReTaY+BDla6apufyVSL0Z1zIk4TtkR6sUIURtTTItjqRdjg9ywf7NjBPVi
NMcEb3haIaQ+FJrSNL+ul+xd/gWDzdN/
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{0, 0},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{{3.44758416996875*^9, 3.44758417875*^9}, {
   3.44758421053125*^9, 3.447584243421875*^9}, {3.447692576782*^9, 
   3.447692582968*^9}, {3.447692622385*^9, 3.447692659159*^9}, 
   3.4476927059379997`*^9, 3.447692740776*^9, 3.447694594532*^9, 
   3.4476947868120003`*^9, {3.447696089987*^9, 3.447696162599*^9}, 
   3.447697106896*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"m", "=", "1"}], "}"}], ",", 
   RowBox[{"ListVectorPlot", "[", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"CutList", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             FractionBox["i", 
              RowBox[{"Length", "[", "ewvr", "]"}]], 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Sin", "[", "u", "]"}], ",", 
               RowBox[{"Cos", "[", "u", "]"}]}], "}"}]}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{
              SuperscriptBox["E", 
               RowBox[{"\[ImaginaryI]", " ", "m", " ", "u"}]], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                 "ewvr", "\[LeftDoubleBracket]", "i", 
                  "\[RightDoubleBracket]"}], 
                 FractionBox["i", 
                  RowBox[{"Length", "[", "ewvr", "]"}]], 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Sin", "[", "u", "]"}], ",", 
                   RowBox[{"Cos", "[", "u", "]"}]}], "}"}]}], "+", 
                RowBox[{
                 RowBox[{
                 "ewv\[Phi]", "\[LeftDoubleBracket]", "i", 
                  "\[RightDoubleBracket]"}], 
                 FractionBox["i", 
                  RowBox[{"Length", "[", "ewvr", "]"}]], 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"Cos", "[", "u", "]"}]}], ",", 
                   RowBox[{"Sin", "[", "u", "]"}]}], "}"}]}]}], ")"}]}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{"Length", "[", "ewvr", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"u", ",", 
            RowBox[{"3", 
             RowBox[{"\[Pi]", "/", "2"}]}], ",", 
            RowBox[{"5", 
             RowBox[{"\[Pi]", "/", "2"}]}], ",", 
            RowBox[{"\[Pi]", "/", "10"}]}], "}"}]}], "]"}], ",", "50"}], 
       "]"}], ",", "1"}], "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4475817083125*^9, 3.447581709171875*^9}, {
   3.4475842500625*^9, 3.447584292734375*^9}, 3.447697076774*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ew", "=", 
      RowBox[{"Re", "/@", 
       RowBox[{"GetEigenWave", "[", 
        RowBox[{"100", ",", "1", ",", "1", ",", "1", ",", "2"}], "]"}]}]}], 
     ",", "fs"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fs", "=", 
     RowBox[{"fict", "/.", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox["f", "b_"], "\[RuleDelayed]", 
        RowBox[{"ew", "[", 
         RowBox[{"[", 
          RowBox[{"b", "+", 
           RowBox[{"1", "/", "2"}]}], "]"}], "]"}]}], "}"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"gr", "=", 
     RowBox[{"PrintRange", "[", 
      RowBox[{"alllist", "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{"fs", ",", 
           RowBox[{
            RowBox[{"Length", "[", "fs", "]"}], "/", "2"}]}], "]"}], ",", 
         "ew", ",", 
         RowBox[{"Take", "[", 
          RowBox[{"fs", ",", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"Length", "[", "fs", "]"}]}], "/", "2"}]}], "]"}]}], 
        "]"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.447584307953125*^9, 3.447584308703125*^9}, {
  3.44769744862*^9, 3.447697462637*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Main eigen value is \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", "15.529105269098492`"}], "+", 
    RowBox[{"0.5488437960574384`", " ", "\[ImaginaryI]"}]}]}],
  SequenceForm["Main eigen value is ", 
   Complex[-15.529105269098492`, 0.5488437960574384]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.447584303703125*^9, 3.447584309328125*^9}, 
   3.4476974675*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1lQtYjGkbxwctSdnIIcqaVGgL6USIf1M6SccZNdNpZppppgOLrdhUJioV
iQj5xBQ2teggUxGFrWh3nZIsIVLxKXL6SCvru7rfua655vpd9/ze//U+z30/
j4H4Jx/pcBaL1fTt+//foY866kfFG02637B0iLVhGjw5oUgmqB3iCbAoNz57
N4pLrAt+k4n/4GoHYn1UTitOEzlbLBtiNoqGLw7iRfGIZ8C84GCu/WAosRHu
qUa+//r7auKZKGt6aih7/DPxbKx20dTIb91I/CMqoldkXTqTQGyG+PXvjI3n
JxHPhfjOXkdp5FZic6TlnbmblJxCPB+Faof6NOO2EVtginlc4ku3dGJLLOLx
e4Z9zCC2gq4mb1xv4g5iaxRuSMls7MgktoGpz95xAzOziBdgaf+1ZWONdxEv
xFuH32vlhQzbojog/kuw3m7iRWg2rP50PonhxWjWM5iCBwwvwaqSx/wjs7OJ
7XA7sOGcIoLhpVCNH5+emM/wMkQ2NZvOus4wUJKXbzPYR6wA5rR93p+gsYfq
9phVntk4SY9YYY+Yov0dloZMnYMfU2IrFjKs4MCk78/srcz/WQ5oKemft0aT
qTuAsy2b4/E/Jt8R9kk7psT+zeR/Y51JU6xVTH05HJWGRvd2MPXl2OgQ86Eo
iKk7octoR8Q75v0VTvguoOTywCtmfZzR2f1Xs3opscIZERsv2YREMXUXCEqt
ozhGTN0FMl3OwPtWZj9cYV18IKNqG7HCFRnLR374y5KpuyHK5eqZ/1bR/irc
sOfjMG7bCGa/V0Br+AvxK5edVF+B/juJdnlpTH+4o2WR7veSK9Q/CnfUF5Xd
renfTvWVmLU7R842I1asxNwbV6JGBjD954GyF5sEnanUnwoPaI7BOovSNKp7
YoF2XomolfpZ4QnOs4HGzn9Sqe6FEcHVOuYGxPBCy8nzyaWONA8KL/SwK3Na
ZMlDXOeF/lxPW83tzPx4w7R32dXa01vI98a98ade8Ztp3hTe0H7feIDTryDf
G8kajx49ZhOzfJDn3/vENCeRfB9cezRfbWdvPPk+4DifCPt1xSbyfeAS5/TF
vPQX8n2RIE926NSj+Ycvzj2cOD42K5Z8X/gbtkXvHhNDvi/2+Nokte9izg8u
6ixazEax15PPhSDO2vhY9VryuVD9ccUzv2YN+VzcKbetxLQo8nkItGfzOPvC
yedBLXXZYtVsGfk82Oh/XKdskZDPw7k2nYpPeWLyV+HLYMac4i1C8lchYvq+
uJmjg8hfhXUOBdEarnzyVyEwNWhjWgNzXvpBmOd3XWurD/l+UJ9X23fvqwf5
fggyPlh+Nt6VfD+8Vuto6kp0JN8fdtzx5+XqIN8fWTY6EYPWC8n3R4Lqi3rE
2vnk+4Pf/VAvOmUW+Xx4zLilWV2jTz4fM4LKBF4Xtcjno6KM533/9Yeh+6KO
j0lPWnw+m9XT/SEAN7baLd+MWX8BEpr/81QQ6Uu+AIt/UNoaLVg/dH/UCSAt
qnuwu2cb3ScB6AqyvXCWv3eIEYDA3E/GXPO8IVYEQIv/j7xU/Sj5AZj9zM79
q18h+YFwXzlt4vXI38gPxA+XdC6MsCohPxDOwWm5Am4Z+YF4mNgvnfqsnPwg
nL1sITnuVkF+EF5VPbS/k3GW/CBIFbcFXidU5AchXVNfc0JhJfnBeLHZpEVr
exX5wdg3eqLyqV81+cEw2NWt16R9jvxgvK2oj95cRcwKgbFjSCO8z5Mfgnm9
znb32ogVIdhk6JVXHFhDfggqrfInXb1FzBKix+SXEV+WXBhithBKM3fbJ4eJ
IcT6eIVJ50dioRAovLo30OUiPV+InFGc7tRdxEoh0tqObM25SVwnxOfJJf6l
6rVD3C7E/UTT6f0LiVkipL8T5WSKiNkiTLuwlZW+hRgibHgiN/vuELFQBC1r
tQl6p4kVIry89dGro4pYKUJB6QxZbA1xnQg1Vjf7e5h6uwh9mXPfhTA+S4wx
wR5HnzPPZ4vB0qv8W5nM5ItRI3QaKJAy+WKc77CbqAEmXwxu8/veNzpMvhh3
/SJ1Njxh3l+MjV0d3aoTxO1i7MjZc/JGODErFOJRmzPajYjZoTiXty939H1m
/UMx9aJxV2Q6s/6hUCZVRJtYEitC8XxQ7ihtpf1UhmJGOsvLIZbZ71B4H4nP
fP49cXsooqpzeuKOUX+wJHimO5prYEXMlsD28p28EbXUX5CgYWxMtttyYqEE
eusWdExvZPpTgq5FJYanHYmVEgi0Ay+zL1I/10kw0i6bdcySuF2CdZZlLyTH
mf6XwrqmynW3DjFbCvuvnKN+iTQvkOLP+D6j7k6aJ6EUqh7e4Z/cmPn6Vr+7
NtrgJM2fUoo/vpzKmTOGuE4Kc+udq+tlZyhfCkH7q9apl5n5DUNyxLAJwqnE
7DCEpA6oGtfSvCMM0/5JOZxcX0r5YWh6+ebpNV1iRRjiFZuyc1pOU34Y2oSd
4TEbTlF+GKa6X7Q8OPkk5Yeh4faaBxGqYsqXoWu4i6UHt4jyZTApSWktfkPn
E2QQRDqN6975K+XL4K9Kq5abHad8GThPrfVzmuh8U8qQyHZ5cDO8gPK/PZ+t
f3uzRj7ly5DcM/hmtOAI5cvxeu7c7OSjhyhfjlnc2/bz3+ZSvhynWHN4N5z2
U74cmnqWWXoFdN4q5MgqLza4qZZN+XLUh87b6/Z4J+XLoVNaXXqiIZ3yv/Hs
JadcLiVTfjjGxvaZxBZspvxwzKwc1F79IYbywyH1dP3NxTSc8sOxZf3P1zxs
PCk/HI7RXVa6BwaW/gu7Dec6
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{566.3999999999994, Automatic},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.44758430934375*^9, 3.447697467519*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:0420\:0430\:0437\:043b\:0438\:0447\:043d\:044b\:0435 \:0437\:0430\:0432\
\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:0438 \:0438\:043d\:043a\:0440\
\:0435\:043c\:0435\:043d\:0442\:043e\:0432\
\>", "Subsection"],

Cell[CellGroupData[{

Cell["\:041e\:0442 \:0447\:0438\:0441\:043b\:0430 \:0420\:0435\:0439\:043d\
\:043e\:043b\:044c\:0434\:0441\:0430 Re", "Subsubsection"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Re", "[", 
    RowBox[{"GetMainIncrement", "[", 
     RowBox[{"100", ",", "0", ",", "0.1`", ",", "R", ",", "2"}], "]"}], "]"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"R", ",", "1", ",", "20000"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"m", "=", "0"}], ",", 
   RowBox[{"k", "=", "0.1"}], ",", 
   RowBox[{"n", "=", "100"}]}], "}"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 4.7619e-005 0.603319 10.6964 [
[.2619 .59082 -12 -9 ]
[.2619 .59082 12 0 ]
[.5 .59082 -15 -9 ]
[.5 .59082 15 0 ]
[.7381 .59082 -15 -9 ]
[.7381 .59082 15 0 ]
[.97619 .59082 -15 -9 ]
[.97619 .59082 15 0 ]
[.01131 .0685 -30 -4.5 ]
[.01131 .0685 0 4.5 ]
[.01131 .17546 -30 -4.5 ]
[.01131 .17546 0 4.5 ]
[.01131 .28243 -30 -4.5 ]
[.01131 .28243 0 4.5 ]
[.01131 .38939 -30 -4.5 ]
[.01131 .38939 0 4.5 ]
[.01131 .49636 -30 -4.5 ]
[.01131 .49636 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.2619 .60332 m
.2619 .60957 L
s
[(5000)] .2619 .59082 0 1 Mshowa
.5 .60332 m
.5 .60957 L
s
[(10000)] .5 .59082 0 1 Mshowa
.7381 .60332 m
.7381 .60957 L
s
[(15000)] .7381 .59082 0 1 Mshowa
.97619 .60332 m
.97619 .60957 L
s
[(20000)] .97619 .59082 0 1 Mshowa
.125 Mabswid
.07143 .60332 m
.07143 .60707 L
s
.11905 .60332 m
.11905 .60707 L
s
.16667 .60332 m
.16667 .60707 L
s
.21429 .60332 m
.21429 .60707 L
s
.30952 .60332 m
.30952 .60707 L
s
.35714 .60332 m
.35714 .60707 L
s
.40476 .60332 m
.40476 .60707 L
s
.45238 .60332 m
.45238 .60707 L
s
.54762 .60332 m
.54762 .60707 L
s
.59524 .60332 m
.59524 .60707 L
s
.64286 .60332 m
.64286 .60707 L
s
.69048 .60332 m
.69048 .60707 L
s
.78571 .60332 m
.78571 .60707 L
s
.83333 .60332 m
.83333 .60707 L
s
.88095 .60332 m
.88095 .60707 L
s
.92857 .60332 m
.92857 .60707 L
s
.25 Mabswid
0 .60332 m
1 .60332 L
s
.02381 .0685 m
.03006 .0685 L
s
[(-0.05)] .01131 .0685 1 0 Mshowa
.02381 .17546 m
.03006 .17546 L
s
[(-0.04)] .01131 .17546 1 0 Mshowa
.02381 .28243 m
.03006 .28243 L
s
[(-0.03)] .01131 .28243 1 0 Mshowa
.02381 .38939 m
.03006 .38939 L
s
[(-0.02)] .01131 .38939 1 0 Mshowa
.02381 .49636 m
.03006 .49636 L
s
[(-0.01)] .01131 .49636 1 0 Mshowa
.125 Mabswid
.02381 .08989 m
.02756 .08989 L
s
.02381 .11129 m
.02756 .11129 L
s
.02381 .13268 m
.02756 .13268 L
s
.02381 .15407 m
.02756 .15407 L
s
.02381 .19686 m
.02756 .19686 L
s
.02381 .21825 m
.02756 .21825 L
s
.02381 .23964 m
.02756 .23964 L
s
.02381 .26104 m
.02756 .26104 L
s
.02381 .30382 m
.02756 .30382 L
s
.02381 .32521 m
.02756 .32521 L
s
.02381 .34661 m
.02756 .34661 L
s
.02381 .368 m
.02756 .368 L
s
.02381 .41078 m
.02756 .41078 L
s
.02381 .43218 m
.02756 .43218 L
s
.02381 .45357 m
.02756 .45357 L
s
.02381 .47496 m
.02756 .47496 L
s
.02381 .51775 m
.02756 .51775 L
s
.02381 .53914 m
.02756 .53914 L
s
.02381 .56053 m
.02756 .56053 L
s
.02381 .58193 m
.02756 .58193 L
s
.02381 .04711 m
.02756 .04711 L
s
.02381 .02572 m
.02756 .02572 L
s
.02381 .00432 m
.02756 .00432 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.03691 0 m
.03751 .02749 L
.03889 .07432 L
.0402 .11102 L
.04266 .16495 L
.04504 .20383 L
.04758 .23535 L
.04997 .25826 L
.05214 .27468 L
.0547 .28987 L
.05747 .30226 L
.06009 .3108 L
.06249 .31638 L
.06377 .31853 L
.06493 .60332 L
.06557 .32071 L
.06627 .32129 L
.06754 .32197 L
.06873 .32218 L
.06999 .32198 L
.07107 .32146 L
.07226 .32054 L
.07365 .31907 L
.07492 .31747 L
.07629 .31573 L
.07701 .31493 L
.07779 .31431 L
.0791 .31395 L
.08032 .31454 L
.08103 .31527 L
.08171 .3162 L
.08298 .3184 L
.08423 .32318 L
.0856 .32865 L
.08838 .33891 L
.09336 .35499 L
.10462 .38291 L
.11479 .40084 L
.12407 .4129 L
.1292 .41815 L
.13479 .42291 L
.13968 .42634 L
.14496 .42933 L
.15029 .43166 L
.15273 .43251 L
.15531 .43326 L
.15763 .43381 L
.15887 .43405 L
.16019 .43428 L
.1614 .43445 L
Mistroke
.16251 .60332 L
.16362 .43469 L
.16467 .43476 L
.16588 .43482 L
.16656 .43484 L
.16721 .43485 L
.1685 .43483 L
.16923 .43481 L
.1699 .43478 L
.17103 .60332 L
.17225 .43458 L
.17354 .43442 L
.17473 .43424 L
.17542 .60332 L
.17616 .4343 L
.17686 .60332 L
.1775 .43503 L
.17872 .43568 L
.18002 .43636 L
.18566 .43925 L
.19512 .44378 L
.20527 .44828 L
.21019 .45033 L
.21261 .45132 L
.21485 .45221 L
.2159 .45262 L
.21688 .453 L
.2179 .60332 L
.21904 .60332 L
.22018 .60332 L
.22123 .45467 L
.22238 .4551 L
.22359 .60332 L
.22483 .45601 L
.22552 .45626 L
.22616 .45649 L
.22734 .45692 L
.22858 .60332 L
.2297 .45776 L
.23074 .45813 L
.23189 .45853 L
.23312 .60332 L
.23443 .45941 L
.23517 .45966 L
.23585 .4599 L
.23711 .60332 L
.23781 .60332 L
.23844 .60332 L
.23965 .46117 L
.24095 .60332 L
Mistroke
.24218 .46199 L
.24331 .46236 L
.26167 .46792 L
.2821 .4734 L
.30117 .47795 L
.31951 .4819 L
.32479 .48297 L
.32605 .48322 L
.32669 .48334 L
.32739 .60332 L
.32863 .60332 L
.32979 .48395 L
.33092 .48417 L
.33196 .48437 L
.33309 .48459 L
.33428 .60332 L
.33549 .48505 L
.33661 .48526 L
.33785 .48549 L
.33916 .60332 L
.3404 .48597 L
.3411 .4861 L
.34176 .60332 L
.34245 .48635 L
.34308 .48646 L
.3445 .48672 L
.34942 .48761 L
.36052 .48953 L
.38068 .49279 L
.40133 .49586 L
.41137 .49726 L
.42046 .49848 L
.42505 .49908 L
.43001 .49972 L
.43119 .49987 L
.43229 .60332 L
.43344 .50015 L
.43469 .50031 L
.43677 .50057 L
.43794 .50072 L
.439 .60332 L
.44022 .501 L
.44152 .50116 L
.44386 .50144 L
.44913 .50208 L
.45133 .50234 L
.45254 .50248 L
.4537 .50262 L
.45434 .50269 L
.45505 .60332 L
Mistroke
.45629 .60332 L
.45755 .60332 L
.45872 .60332 L
.46001 .60332 L
.46065 .50342 L
.46136 .5035 L
.46379 .50378 L
.46928 .50439 L
.47923 .50548 L
.49784 .50742 L
.51897 .50949 L
.53825 .51126 L
.54781 .51211 L
.55043 .51233 L
.55322 .51257 L
.55559 .51278 L
.55624 .51283 L
.55695 .51289 L
.55822 .60332 L
.55941 .5131 L
.56051 .51319 L
.56302 .5134 L
.56809 .51382 L
.57246 .51418 L
.57372 .51428 L
.57491 .51438 L
.57598 .51446 L
.57714 .60332 L
.57837 .51466 L
.5795 .51475 L
.58203 .51495 L
.5866 .51531 L
.59701 .51611 L
.61805 .51767 L
.63867 .51912 L
.6487 .5198 L
.65779 .5204 L
.66238 .52069 L
.66479 .52085 L
.66733 .52101 L
.66956 .52116 L
.67083 .52124 L
.67201 .60332 L
.67309 .52138 L
.67408 .52144 L
.67523 .52151 L
.67631 .60332 L
.67744 .52165 L
.67869 .52173 L
.68122 .52189 L
Mistroke
.68575 .52217 L
.68831 .52232 L
.69105 .52249 L
.69232 .60332 L
.69295 .5226 L
.69365 .52265 L
.69488 .52272 L
.69602 .60332 L
.6973 .60332 L
.69795 .5229 L
.69866 .52295 L
.70108 .52309 L
.70657 .52341 L
.71651 .52399 L
.73511 .52503 L
.77548 .52716 L
.81435 .52906 L
.85566 .53093 L
.89546 .5326 L
.93374 .5341 L
.97448 .5356 L
.97619 .53566 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXL1uE0EQtn3nn8TOHwmJkpBgID8kggYCAQEtoYnEK1gRUiyEQCEvwBPw
AvRU9JR0NFSUFFBRINFQIFGAjHfW3vWtZ+72zrvnu8ud4DzM7cx+Mzs7O7s+
c9g6PX7yrHXaPmo1D05aL47bRy+bD5+fdFlOsVAoHhcKha/NAqM7XbJ363T/
dNrsxjjJpXfgo1zgoDviL7ekS90baFdi3BIwHK8Eu9+NoDEr7XLPGPCM9zkp
cye6TJV9uOxpWWArC54rqEoE3boyJdGzS0q4Hh7R1LEIsqbZrmwIl0tFiRVw
jm9MGnOVdxTjiC0aCz5bJ1KORc7nhqBgqkAX2PjbyCqRZSALYNNlbIiyJpN7
OFPeIrHtp0SGXPfTYoV/BQVrgyN4IXWbrKC8PKydbkkVBaFuhWIKl5XyqSLG
Efj2fYPXBbp+y/H589iF9aE/42WNBXpKlEYyv93mGrG8Y01GZqikIEqyTO6t
M+9hEtutlMiQeckGIrKfPS6jceIEwtUIuq2eOGHLAiZuCqTpkikIl5WSiQTn
+MakJVfJcceiC+PB/eZ4B84+rsixHgSNPI4ip3iQRizlWJOBUMHcZgMR2c+N
cDJk+XqN1jOBhEF/lIC6HiALnuqtF/2rT2spcKmwg/uuOiiTgiLXqF0dyOOU
JrPfTtKlyfC+So+TlgzZIzk5tpMujZ3iw33LmLTi6dF6nKSkN8cv7V87QvYo
U9Ete6lTvWzwXhJRRZqHa+LrJ31UVqpJ/FCu01uoJLgGBe6KKZcFL7nY2jA+
hLq1pkQ4RSG8bAqhgbkRBDJ8/Sl1T1O6L3Hd/qlshpJu6kjPUtIXB6SVtD9H
yazr9HiOkl7TkZ6npC/oSC9Q0qs60ucp6RUd6UVKepn29JKIJWi5pNMPgJkQ
MjM6MmuC6k2N/lUSeqZD6vFW6P3mss6vh9Tnqvpc8azDLR5RX8WrrzqqPkhH
0l6XHmU/LXUvqtKoqCA7wTL8z4gq+KbqL60KK7RWtZQOP/tjuZueIGj5baUv
x9OXfOntVwy91cTI/1RDESuxIvUxJfz3IwaLZoX/vsfQ24J48C2G3pbFgy+c
r3GaTb55ZRbVNPvXZ863996AbqVrweM1QX0KZ6XpKt6CbdMiUD7yFla2T6SB
wLJgFpSFVUZ9yNyQQUFXY9T7zNnG6265P+tdMl0o9SgM8TtTbsCPobHNWnym
q4PBLpmQ3nIe+WJIokYRMwXyT51RbzgvplU0BEQQmmLU6wGIZgulSMBkMS73
Psr8aLDbqwieHUoJsaCHzekMo05SgxkOGuYYdZQuzI6QAAqSyiKjDlNtBxw6
LTNqz6QdHOPQjF6xacq+MMXnPCodpjxmFBQt8wOm+CfRRBnwNO0jEJsBzgDU
/pXbkwZ7vMDVnfmYjfECLgsM2O9FdU0sK+3EoGKaXTE7FdvhcL1ESSgUfBVO
osconzPeUL6sC6yuEr09833ZyBZR18vq5qr3WQrsMxSbjEo5MspIO8b6VrzD
v0rFv9ymf5JrAkiRUcWBgIm4wtayHSbYPljmRhkwFVsRsoHwQrzLYSIyRk7L
ZzVGNCDZDJ1NyocpCh2iPMmDiQgmmZFMjbRXwxapNY+pTMeUpSXIq4G/rYqX
Q+Z8ktWIUtvxMTHqulDhhOGOL5YSVFqPHF8NoXuUPSy3sOLhDXxqbDCHNsB6
geCXV8pCLdnrtjAS+2+fgjbCFk4ORzkXWadmuYYf5RRMxRFQbmpuam5qbmqW
TYUX7eHZfQEcdwD2c4px8bDlMEn44uDN0UP1COEdaLbDeD5dwf2BmedAt5NJ
F4r/AVIMu04=\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {-2772.42, -0.0604946, 83.661, \
0.000372448}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"m", "=", "1"}], ",", 
   RowBox[{"k", "=", "0.1"}], ",", 
   RowBox[{"n", "=", "100"}]}], "}"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 4.7619e-005 0.603319 6.86908 [
[.2619 .59082 -12 -9 ]
[.2619 .59082 12 0 ]
[.5 .59082 -15 -9 ]
[.5 .59082 15 0 ]
[.7381 .59082 -15 -9 ]
[.7381 .59082 15 0 ]
[.97619 .59082 -15 -9 ]
[.97619 .59082 15 0 ]
[.01131 .05379 -30 -4.5 ]
[.01131 .05379 0 4.5 ]
[.01131 .19117 -30 -4.5 ]
[.01131 .19117 0 4.5 ]
[.01131 .32856 -30 -4.5 ]
[.01131 .32856 0 4.5 ]
[.01131 .46594 -30 -4.5 ]
[.01131 .46594 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.2619 .60332 m
.2619 .60957 L
s
[(5000)] .2619 .59082 0 1 Mshowa
.5 .60332 m
.5 .60957 L
s
[(10000)] .5 .59082 0 1 Mshowa
.7381 .60332 m
.7381 .60957 L
s
[(15000)] .7381 .59082 0 1 Mshowa
.97619 .60332 m
.97619 .60957 L
s
[(20000)] .97619 .59082 0 1 Mshowa
.125 Mabswid
.07143 .60332 m
.07143 .60707 L
s
.11905 .60332 m
.11905 .60707 L
s
.16667 .60332 m
.16667 .60707 L
s
.21429 .60332 m
.21429 .60707 L
s
.30952 .60332 m
.30952 .60707 L
s
.35714 .60332 m
.35714 .60707 L
s
.40476 .60332 m
.40476 .60707 L
s
.45238 .60332 m
.45238 .60707 L
s
.54762 .60332 m
.54762 .60707 L
s
.59524 .60332 m
.59524 .60707 L
s
.64286 .60332 m
.64286 .60707 L
s
.69048 .60332 m
.69048 .60707 L
s
.78571 .60332 m
.78571 .60707 L
s
.83333 .60332 m
.83333 .60707 L
s
.88095 .60332 m
.88095 .60707 L
s
.92857 .60332 m
.92857 .60707 L
s
.25 Mabswid
0 .60332 m
1 .60332 L
s
.02381 .05379 m
.03006 .05379 L
s
[(-0.08)] .01131 .05379 1 0 Mshowa
.02381 .19117 m
.03006 .19117 L
s
[(-0.06)] .01131 .19117 1 0 Mshowa
.02381 .32856 m
.03006 .32856 L
s
[(-0.04)] .01131 .32856 1 0 Mshowa
.02381 .46594 m
.03006 .46594 L
s
[(-0.02)] .01131 .46594 1 0 Mshowa
.125 Mabswid
.02381 .08814 m
.02756 .08814 L
s
.02381 .12248 m
.02756 .12248 L
s
.02381 .15683 m
.02756 .15683 L
s
.02381 .22552 m
.02756 .22552 L
s
.02381 .25986 m
.02756 .25986 L
s
.02381 .29421 m
.02756 .29421 L
s
.02381 .3629 m
.02756 .3629 L
s
.02381 .39725 m
.02756 .39725 L
s
.02381 .43159 m
.02756 .43159 L
s
.02381 .50028 m
.02756 .50028 L
s
.02381 .53463 m
.02756 .53463 L
s
.02381 .56897 m
.02756 .56897 L
s
.02381 .01945 m
.02756 .01945 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.0321 0 m
.03283 .04771 L
.034 .10548 L
.03525 .15377 L
.03751 .21699 L
.03889 .24522 L
.0402 .26696 L
.04266 .29796 L
.04504 .31909 L
.04637 .32807 L
.04758 .33477 L
.04871 .33996 L
.04993 .3445 L
.05108 .34785 L
.05214 .35022 L
.05338 .35217 L
.05454 .35329 L
.05581 .35387 L
.05653 .35399 L
.05717 .35404 L
.05848 .35426 L
.05922 .35464 L
.0599 .35525 L
.06116 .35712 L
.06179 .35843 L
.06249 .3601 L
.07237 .38981 L
.07775 .40289 L
.08277 .41224 L
.08821 .41983 L
.09417 .42594 L
.10462 .43474 L
.14482 .47475 L
.16356 .49717 L
.17413 .50659 L
.18387 .51376 L
.19424 .5201 L
.20521 .52564 L
.21493 .52969 L
.22536 .5333 L
.23559 .5362 L
.24494 .53838 L
.26325 .54156 L
.27312 .54281 L
.28227 .54376 L
.30301 .54556 L
.34219 .55036 L
.36364 .55407 L
.38382 .55764 L
.42242 .56374 L
Mistroke
.46347 .56877 L
.48394 .57074 L
.50301 .57229 L
.54103 .57466 L
.56143 .57557 L
.57999 .57622 L
.59912 .57671 L
.60991 .57691 L
.61989 .57705 L
.62454 .57711 L
.62954 .57716 L
.63387 .57719 L
.63859 .57722 L
.64131 .57723 L
.64384 .57724 L
.6465 .57725 L
.648 .57725 L
.64866 .57725 L
.64935 .57725 L
.65062 .57725 L
.65179 .57725 L
.65304 .57725 L
.65376 .57725 L
.65442 .57725 L
.65563 .57725 L
.65673 .57725 L
.658 .57725 L
.65921 .57725 L
.66157 .57724 L
.66378 .57723 L
.66884 .57721 L
.67377 .57718 L
.67909 .57714 L
.68869 .57704 L
.6975 .57693 L
.7164 .57662 L
.73709 .57619 L
.77762 .57513 L
.81663 .57401 L
.83652 .57348 L
.85809 .57298 L
.86818 .57279 L
.87887 .57261 L
.88888 .57248 L
.89804 .57238 L
.90254 .57235 L
.90746 .57232 L
.91015 .5723 L
.91265 .57229 L
.91519 .57228 L
Mistroke
.91759 .57227 L
.91982 .57227 L
.92108 .57227 L
.92224 .57227 L
.92321 .57226 L
.92429 .57226 L
.92541 .57226 L
.92645 .57226 L
.92767 .57226 L
.92883 .57227 L
.92988 .57227 L
.93101 .57227 L
.93355 .57227 L
.93589 .57228 L
.94053 .5723 L
.94553 .57232 L
.95457 .57238 L
.96532 .57249 L
.97518 .5726 L
.97619 .57262 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW8tSE0EUnWQSQsIjgKC8hPCMCAg+UF5iuVDcuHHlyqoUZRVZWFrIv7pj
5cofcGGVMX0HOpnhnp6epHtmglBUp7l9zu0zfae7b8+E97Xz089fauf1k1rl
+Kz27bR+8r3y9utZ0+RmHCdz6jjORcUR9Uazelk0mr+NuiiEJb31NfrIOZ7o
hme8hBz2LiRLCPeq3cOK8iClguOAFMQHIfJyjPLSlpO1vnBXHsT1QbLIlpXu
Wca1jjioa05Tv3Ul1AiHw4KcnO2xsHBr2A9DepS0Zt5gZ/MtTcvI7TLdM5A4
xzfvg8ger/V2i2NxFCpudaJyLwUKU4xTZzZUo0Ht0/RnMr3he3MZvGtYHd7X
zGsylPJEFOa2NctGUe6bGilVGpRcpIqx9R9u0x0LLgfqk0HMa3pJ+0rUK3tD
eFyp3L3lJMKhiHPLXk9dxQ3nwPi8SIADs5DEFCXEgWPwPF6OOicN7nzRfJvM
T8N71rV1olA38zCly1CeGkyBnPZThv2x4Xf5bsbt/9Kntokfrg/9GR/IcLPI
Izf3qdzxPHLrTlwcTi+VzzCnIK82DFlE3h93yaHeSx14h5zt5DkDiLOVPGcQ
cR4lwKHoDyPkJvY+1AEH9rNhllNGnHWznBHEeWiWM4o4a5gzJqMbhhxH3leD
98ldhFzB3iFnGXPuIc4S5kwiziLmTCHOAuZMI04Fc2YQZx5zZhFnzuOos2U6
B1BSwe1K95Fvr8Huy2ruiMLR55DI2WgiO3tU6MfPIy1eZO0kyfDZIZkqSNK0
qeHx27iwcVnSAtI1ZUeXbj68iHRNmtLV8Z2+hKR56yB+GU6UAsNeRh691Zhd
cFYQZwJzVhFn3Cynijh3MOcB4oxhDmejcrSNQwveOkKOYO+QU8acDcQZxpxN
qTIMuYW8D2DOtt+7AvkEee/HnKd+7wrkjpwB9HceI3f9yCxGHkjk32DAX8mm
P5j/WpQ0P39j0BtRDgnLLwz6IEp6TPITgz5K0AUGfRJlQVh+YNC+FJ5T1sqy
xwlv0J3LZU6DW43MWJUMNa5VU8R2j7Epv7QUzcxk3zROXO6Od3sLUrj1NlYB
3vam/6LanJCMqGXwLXFk65InZfi5BwSJh79gqzMu74j8PdbeCDEdT0pk8n+d
wu4tnWR0uQwx5glMWzHt0q1jroHemcyxKCyxxs21fFnxbwRhk3OfsZlaLsIT
e+7ay63h7y6OsVwVHalnej44lBi6qFXpPx800+eIqCxKr7ovjLmnQlf1qqiU
GMAVCM/ZYMctScGOug6XRnbNHSh183FSfeS3tYLH/WdMxBydypc3o50ehFH8
DkUxiFnci5qkbFy+miZ9cdjaH/YEmt4xtmNNHGdTdGXyXqR6PZ11J/MPR7dS
OQ==\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {-2772.42, -0.094201, 83.661, \
0.000579969}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"m", "=", "0"}], ",", 
   RowBox[{"k", "=", "1"}], ",", 
   RowBox[{"n", "=", "100"}]}], "}"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 4.7619e-005 0.603319 1.41365 [
[.2619 .59082 -12 -9 ]
[.2619 .59082 12 0 ]
[.5 .59082 -15 -9 ]
[.5 .59082 15 0 ]
[.7381 .59082 -15 -9 ]
[.7381 .59082 15 0 ]
[.97619 .59082 -15 -9 ]
[.97619 .59082 15 0 ]
[.01131 .03786 -24 -4.5 ]
[.01131 .03786 0 4.5 ]
[.01131 .17922 -24 -4.5 ]
[.01131 .17922 0 4.5 ]
[.01131 .32059 -24 -4.5 ]
[.01131 .32059 0 4.5 ]
[.01131 .46195 -24 -4.5 ]
[.01131 .46195 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.2619 .60332 m
.2619 .60957 L
s
[(5000)] .2619 .59082 0 1 Mshowa
.5 .60332 m
.5 .60957 L
s
[(10000)] .5 .59082 0 1 Mshowa
.7381 .60332 m
.7381 .60957 L
s
[(15000)] .7381 .59082 0 1 Mshowa
.97619 .60332 m
.97619 .60957 L
s
[(20000)] .97619 .59082 0 1 Mshowa
.125 Mabswid
.07143 .60332 m
.07143 .60707 L
s
.11905 .60332 m
.11905 .60707 L
s
.16667 .60332 m
.16667 .60707 L
s
.21429 .60332 m
.21429 .60707 L
s
.30952 .60332 m
.30952 .60707 L
s
.35714 .60332 m
.35714 .60707 L
s
.40476 .60332 m
.40476 .60707 L
s
.45238 .60332 m
.45238 .60707 L
s
.54762 .60332 m
.54762 .60707 L
s
.59524 .60332 m
.59524 .60707 L
s
.64286 .60332 m
.64286 .60707 L
s
.69048 .60332 m
.69048 .60707 L
s
.78571 .60332 m
.78571 .60707 L
s
.83333 .60332 m
.83333 .60707 L
s
.88095 .60332 m
.88095 .60707 L
s
.92857 .60332 m
.92857 .60707 L
s
.25 Mabswid
0 .60332 m
1 .60332 L
s
.02381 .03786 m
.03006 .03786 L
s
[(-0.4)] .01131 .03786 1 0 Mshowa
.02381 .17922 m
.03006 .17922 L
s
[(-0.3)] .01131 .17922 1 0 Mshowa
.02381 .32059 m
.03006 .32059 L
s
[(-0.2)] .01131 .32059 1 0 Mshowa
.02381 .46195 m
.03006 .46195 L
s
[(-0.1)] .01131 .46195 1 0 Mshowa
.125 Mabswid
.02381 .06613 m
.02756 .06613 L
s
.02381 .09441 m
.02756 .09441 L
s
.02381 .12268 m
.02756 .12268 L
s
.02381 .15095 m
.02756 .15095 L
s
.02381 .2075 m
.02756 .2075 L
s
.02381 .23577 m
.02756 .23577 L
s
.02381 .26404 m
.02756 .26404 L
s
.02381 .29232 m
.02756 .29232 L
s
.02381 .34886 m
.02756 .34886 L
s
.02381 .37714 m
.02756 .37714 L
s
.02381 .40541 m
.02756 .40541 L
s
.02381 .43368 m
.02756 .43368 L
s
.02381 .49023 m
.02756 .49023 L
s
.02381 .5185 m
.02756 .5185 L
s
.02381 .54677 m
.02756 .54677 L
s
.02381 .57505 m
.02756 .57505 L
s
.02381 .00959 m
.02756 .00959 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02588 0 m
.0261 .07534 L
.02734 .19393 L
.0285 .21686 L
.03061 .26243 L
.03176 .3018 L
.03283 .32756 L
.034 .34706 L
.03528 .36116 L
.03637 .36836 L
.03755 .37194 L
.0382 .37215 L
.03892 .37462 L
.04022 .38388 L
.04266 .39876 L
.04764 .42175 L
.05295 .43937 L
.05795 .45202 L
.06249 .46129 L
.07291 .47743 L
.08419 .48991 L
.09483 .49884 L
.10462 .50543 L
.12345 .51523 L
.14411 .52321 L
.16362 .52905 L
.18453 .53408 L
.22589 .54161 L
.26573 .54694 L
.30406 .55096 L
.34484 .55441 L
.38411 .55716 L
.42185 .55942 L
.46206 .56149 L
.50074 .56322 L
.54188 .56485 L
.5815 .56625 L
.61961 .56746 L
.66017 .56862 L
.69921 .56965 L
.74071 .57064 L
.78069 .57151 L
.81915 .5723 L
.86007 .57307 L
.89947 .57376 L
.93735 .57438 L
.97619 .57498 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW91PE0EQv/b6bamixo8GQ0MECgFRUVFAMaL4pE/+Aw0haR+MBvl7ffPZ
J5/r7Vzd623nd7f3sb1ebcNNl9n5zc7OzO7sHuFT76p/8bV3NTjvdT5e9r73
B+c/OmffLh2WXbCsQt+yrJ8dS7SHTnNEhs7PcCCI4GTTXqMv23INGrqPoO+n
2F90feK0PsyQVQH9NfFVEr1laX9VtGzJC0BXmf4i4pHuGtNbSmmUZgzdZdEB
TVZ4ZHxFOsaWwY5oaH1k2jjP+VRS8oNh9Q2Fp6PbS7OWTIUwTNZLI58LeuGV
hVc0rMo9lytc3q5cZTHRy5VbPsp+D4/vebHHgMVqQmOkEgXVxi5WDWlUMqfq
T1hXYy1ycLykaYakyiyk+BxxleNC0CaWy/6J1TUTVmXdP3de4YoO7WG0CakH
WhVtoPykMFqd4alYVXekkqTeF8RTYdND1+RrDE+9qsbVrXOJjKs7tGBppZ5S
uhKn+8RFkRqnqYtQRjvWSEuGo9PquyysSUmED+bktFKWI19yKUb0LR9+lJZE
T/KJsRHmTU4wY/u8eYvgOK//Hwx8p3mcEBP8UitAO8QcZY/hShvRw/gYeHUv
yxZbOBmNr1yN0U9WHMLkyDpHFvFwpzGiL93xIp284KDEChsq7alx50CiB7M9
Xl16jENw1hB9oSZ7S9PuMI3ckuNOrUSfY8wSwjzDGG4ORPcx5jrCPB3D0KJc
RpJPsHaIeYwxNxFmD2NuIcwjjLktZxYmeccvuYMl7/klt7Fk2y/ZxZIrfskN
NS6r/v6HWFPHL7mGJZUXBKtYct0vuYIlaYplKXkXS+4KWpGSy1iSErskJZew
5IFfso4lj9z+f5LjrqaXZg3R+oPxn6X1v7HQF6npV4glZHMpsEU7X1O02tLH
tia2mwARLOe1iniKhwzPFZ+43pVisP2Kbwh6X85V90hiwpTNrA2gdQsutNg7
aRhSEK0CTokTU1PeErTlJWTyCYbHtGpqMhsMj5Obg7jtRFkrbcHpTjMSXNiz
XUFe3UjLjgQBSdvl4rMuCDeiV8PMzJxLLLMz14q1oX1ghqIuHipZ+4LzgH7n
i1eccTRdT2fA46k5nG4PNuo162ZicfdfM1OlG/Ku5Q2qYJIvEY0j7h6D1T0U
byOsxrhbfocnO1ATBX9hyls/3WYozqeCNDGKe8Oiy+PetCywyfQFXNkXocpN
qNJcy9TO+J8QrMJf75MVPg==\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {-2221.92, -0.451701, 81.6386, \
0.00275001}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"m", "=", "1"}], ",", 
   RowBox[{"k", "=", "1"}], ",", 
   RowBox[{"n", "=", "20"}]}], "}"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 4.7619e-005 0.565251 1.93352 [
[.2619 .55275 -12 -9 ]
[.2619 .55275 12 0 ]
[.5 .55275 -15 -9 ]
[.5 .55275 15 0 ]
[.7381 .55275 -15 -9 ]
[.7381 .55275 15 0 ]
[.97619 .55275 -15 -9 ]
[.97619 .55275 15 0 ]
[.01131 .08187 -30 -4.5 ]
[.01131 .08187 0 4.5 ]
[.01131 .17855 -24 -4.5 ]
[.01131 .17855 0 4.5 ]
[.01131 .27522 -30 -4.5 ]
[.01131 .27522 0 4.5 ]
[.01131 .3719 -24 -4.5 ]
[.01131 .3719 0 4.5 ]
[.01131 .46858 -30 -4.5 ]
[.01131 .46858 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.2619 .56525 m
.2619 .5715 L
s
[(5000)] .2619 .55275 0 1 Mshowa
.5 .56525 m
.5 .5715 L
s
[(10000)] .5 .55275 0 1 Mshowa
.7381 .56525 m
.7381 .5715 L
s
[(15000)] .7381 .55275 0 1 Mshowa
.97619 .56525 m
.97619 .5715 L
s
[(20000)] .97619 .55275 0 1 Mshowa
.125 Mabswid
.07143 .56525 m
.07143 .569 L
s
.11905 .56525 m
.11905 .569 L
s
.16667 .56525 m
.16667 .569 L
s
.21429 .56525 m
.21429 .569 L
s
.30952 .56525 m
.30952 .569 L
s
.35714 .56525 m
.35714 .569 L
s
.40476 .56525 m
.40476 .569 L
s
.45238 .56525 m
.45238 .569 L
s
.54762 .56525 m
.54762 .569 L
s
.59524 .56525 m
.59524 .569 L
s
.64286 .56525 m
.64286 .569 L
s
.69048 .56525 m
.69048 .569 L
s
.78571 .56525 m
.78571 .569 L
s
.83333 .56525 m
.83333 .569 L
s
.88095 .56525 m
.88095 .569 L
s
.92857 .56525 m
.92857 .569 L
s
.25 Mabswid
0 .56525 m
1 .56525 L
s
.02381 .08187 m
.03006 .08187 L
s
[(-0.25)] .01131 .08187 1 0 Mshowa
.02381 .17855 m
.03006 .17855 L
s
[(-0.2)] .01131 .17855 1 0 Mshowa
.02381 .27522 m
.03006 .27522 L
s
[(-0.15)] .01131 .27522 1 0 Mshowa
.02381 .3719 m
.03006 .3719 L
s
[(-0.1)] .01131 .3719 1 0 Mshowa
.02381 .46858 m
.03006 .46858 L
s
[(-0.05)] .01131 .46858 1 0 Mshowa
.125 Mabswid
.02381 .10121 m
.02756 .10121 L
s
.02381 .12054 m
.02756 .12054 L
s
.02381 .13988 m
.02756 .13988 L
s
.02381 .15921 m
.02756 .15921 L
s
.02381 .19788 m
.02756 .19788 L
s
.02381 .21722 m
.02756 .21722 L
s
.02381 .23655 m
.02756 .23655 L
s
.02381 .25589 m
.02756 .25589 L
s
.02381 .29456 m
.02756 .29456 L
s
.02381 .31389 m
.02756 .31389 L
s
.02381 .33323 m
.02756 .33323 L
s
.02381 .35256 m
.02756 .35256 L
s
.02381 .39123 m
.02756 .39123 L
s
.02381 .41057 m
.02756 .41057 L
s
.02381 .4299 m
.02756 .4299 L
s
.02381 .44924 m
.02756 .44924 L
s
.02381 .48791 m
.02756 .48791 L
s
.02381 .50725 m
.02756 .50725 L
s
.02381 .52658 m
.02756 .52658 L
s
.02381 .54592 m
.02756 .54592 L
s
.02381 .06254 m
.02756 .06254 L
s
.02381 .0432 m
.02756 .0432 L
s
.02381 .02387 m
.02756 .02387 L
s
.02381 .00453 m
.02756 .00453 L
s
.02381 .58459 m
.02756 .58459 L
s
.02381 .60392 m
.02756 .60392 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02855 0 m
.02958 .07853 L
.03058 .12738 L
.03167 .159 L
.03283 .17415 L
.03528 .23142 L
.03663 .26536 L
.03791 .29042 L
.0391 .30836 L
.04039 .32325 L
.04157 .33342 L
.04266 .3407 L
.04761 .36932 L
.0521 .39894 L
.05469 .41178 L
.05713 .42077 L
.05847 .42456 L
.0597 .4274 L
.06106 .42987 L
.06174 .43087 L
.06249 .43178 L
.06319 .43248 L
.06384 .43299 L
.06511 .43366 L
.06627 .43391 L
.0675 .43382 L
.06882 .43337 L
.07006 .43268 L
.07142 .43168 L
.07288 .43042 L
.07534 .42824 L
.07669 .42722 L
.07794 .42648 L
.07901 .42606 L
.08015 .42583 L
.08142 .42587 L
.08258 .42614 L
.08323 .42639 L
.08395 .42673 L
.08541 .42759 L
.08802 .42959 L
.09392 .43501 L
.10462 .44423 L
.11479 .45087 L
.12407 .45533 L
.13479 .45909 L
.14496 .46167 L
.15457 .4635 L
.16481 .46497 L
.17446 .46604 L
Mistroke
.1832 .46682 L
.22332 .46955 L
.26192 .47285 L
.2819 .47504 L
.29195 .4765 L
.30298 .47859 L
.32252 .48368 L
.34345 .49046 L
.38486 .50485 L
.42476 .51782 L
.46314 .52895 L
.50397 .53937 L
.54329 .5482 L
.58109 .55573 L
.62134 .56288 L
.66008 .56904 L
.70127 .57492 L
.74094 .58003 L
.7791 .58463 L
.81971 .58917 L
.85881 .59315 L
.90035 .59703 L
.94039 .60047 L
.97619 .60332 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWklrFEEU7pmeJcuYIBqXKBo1i8GcjFtiTMCDCYhePCgexGFQM0JQk4BX
b548CYIIOejJkyf/gOBBEAVBQRQFwYMXQfAkSJx6Pb6a7nmvu6qnekkYyNRU
Xn1vqXpLV1XPmfLy/JWF8nK1Uh6YXSzfnK9WlgZO3ViskeyMZWXmLcv6MmCJ
/mqtW29Wa3+rVdEISnr7o+Ir69hd6023qU1UG6knGqgWkB1CGsdjt7oovnKC
mse1zIleHnswWgiQ4x0XnyxHk1qsvGv0v2RbUZoXF9aqTkVakD5YKnbaHloX
QevglDYFhurUujmJRt1aUsQVDenr8AmeXAi9Mg1KuNp5TIO8iSRsF6S21TFb
3YtRTRV3J9dyyF2XAJ0p578exXRUq+oGFVLFuRgsHiwoCGorRbqAyxrGdKog
582tDFWJc+bE+xVeBf/KiJR1VsFvo4oQCMH6Uxqxoj2uJ4eZYLOohHBZLoSh
nUiBhe0Zr8kZU8cBuQ/y7huD5ekfC7w7NV8OcntuziqqVFP2qerVOh5oKXdI
ROGbbH3G0Xmd1UZO25zeTlwy785eR5vMFerhaWPW5BXlpb86ePeb3PpCeywB
nqzMgpRYlGaeWFeL1XN0jfA0HG+it4jVcyQ8D3Ua5O84VCTqHw+pB1iUmvnD
lp4+/YMjq9n2jaOE5mdaH0WD9rCePvmkVo2cRi0y4il9Yeym8k6Jh41+aA/x
0qk9zVrmYddg3Lta1F14EzKM9IR4qPmweXlAT04WIx3+H/OuZVddWyOP5VOG
Rnn1MiULKD6IZzOnZ5jn6eN4hnieLRzPIM+z1T2LRiRQ+zmZe3iZ/W6ZPsid
buRuB8kew3PoNfL1jfjscofCDkdi2PdzFIdSGFG7nr2iLaBpfXqmsXGvUI8p
a/aLtgetcVJa74zesklAgmdwSfT+mFoRt4v8wuWkaDsF5Zcp5fRBkrqyPy3a
DkH5Eb/yc7gu371ZV3LnGrtBPo8+/OaIoFL8IoK+NoAgxy7h0Gee/zKCPvKg
CoI+8KCrOK13POg6SnrLgxYQ9No7p1s49IrnX0JLXvKg2yjpBQ+adLuK7Q2i
MHkzYyvyjmhzDCOHP072svwUJ9hgZyqxHtktWK6TahGMzJThpA3YB63uT1RM
GJIRvQwfEtNRTXkE3a/9/Dftaua9oKEQV9iIR+hOqJQzUU0QVDhI9ysBe134
b4igJZuO8iFkyg7CocymLtactCOeaPwlX8m1ERULysnBczeV2IrejmXu8Njx
/T3f+vK1ymNW0hx/W+FyndveqV4Tt64zvdsocLjCxn6MSw6Jky8HPLzsKyEF
vTJMqNsfzWPEAwQ9bgDBTuQRDq3w/Cto9EMe9ATX4j4PeoqgezzoGYLu8qDn
oi0Kyh0HBFdtEABToinxrNQP5ZKiUa9V4tALy0vduSS1EBt5f80RtFmCNo5x
06soxUfpG4yvazzoPWos86BPooV7tgve7IPrpy7RO8vz/0QlczzoNyqZ4UF/
RbtBUA7yIGi7Eelz5w7tNtHAFeZ27+xgfAit3xQgiflpc9zj0K+ms29l/gGP
VDU6\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {-2772.42, -0.314973, 83.661, \
0.00206042}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"linc", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"R", ",", 
       RowBox[{"GetMainIncrement", "[", 
        RowBox[{"100", ",", "0", ",", "1", ",", "R", ",", "2"}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"R", ",", "1", ",", "20001", ",", "100"}], "}"}]}], "]"}]}], 
  ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"lincRe", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"R", "=", 
        SuperscriptBox["10", "logR"]}], ",", 
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{
           RowBox[{"GetIncrements", "[", 
            RowBox[{"20", ",", "0", ",", "0.1", ",", "R"}], "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Re", "[", "#1", "]"}], ">", 
             RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], ",", "10"}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"logR", ",", "0", ",", "5", ",", 
       RowBox[{"1", "/", "5"}]}], "}"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{"6.75`", " ", "Second"}]], "Print"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:0414\:043e\:043a\:0430\:0437\:0430\:0442\:0435\:043b\:044c\:0441\:0442\:0432\
\:043e \:0430\:0431\:0441\:043e\:043b\:044e\:0442\:043d\:043e\:0439 \:0443\
\:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e\:0441\:0442\:0438 (\:0435\
\:0441\:0442\:044c \:0441\:0445\:043e\:0434\:0438\:043c\:043e\:0441\:0442\
\:044c \:043f\:043e \:0441\:0435\:0442\:043a\:0435 \:0438 \:044d\:043a\:0441\
\:043f\:043e\:043d\:0435\:043d\:0446\:0438\:0430\:043b\:044c\:043d\:043e\:0435\
 \:043f\:0440\:0438\:0431\:043b\:0438\:0436\:0435\:043d\:0438\:0435 \:0438\
\:043d\:043a\:0440\:0435\:043c\:0435\:043d\:0442\:0430 \:043a \:043d\:0443\
\:043b\:044e \:0441\:043d\:0438\:0437\:0443\
\>", "Text"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"-", 
      RowBox[{"GetMainIncrement", "[", 
       RowBox[{"150", ",", "1", ",", "0.01`", ",", 
        RowBox[{"Evaluate", "[", 
         SuperscriptBox["10", "logre"], "]"}], ",", "2"}], "]"}]}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"logre", ",", "0", ",", "7"}], "}"}]}], "]"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.136054 0.478051 0.107366 [
[.15986 .46555 -3 -9 ]
[.15986 .46555 3 0 ]
[.29592 .46555 -3 -9 ]
[.29592 .46555 3 0 ]
[.43197 .46555 -3 -9 ]
[.43197 .46555 3 0 ]
[.56803 .46555 -3 -9 ]
[.56803 .46555 3 0 ]
[.70408 .46555 -3 -9 ]
[.70408 .46555 3 0 ]
[.84014 .46555 -3 -9 ]
[.84014 .46555 3 0 ]
[.97619 .46555 -3 -9 ]
[.97619 .46555 3 0 ]
[.01131 .04859 -12 -4.5 ]
[.01131 .04859 0 4.5 ]
[.01131 .15595 -12 -4.5 ]
[.01131 .15595 0 4.5 ]
[.01131 .26332 -12 -4.5 ]
[.01131 .26332 0 4.5 ]
[.01131 .37069 -12 -4.5 ]
[.01131 .37069 0 4.5 ]
[.01131 .58542 -6 -4.5 ]
[.01131 .58542 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15986 .47805 m
.15986 .4843 L
s
[(1)] .15986 .46555 0 1 Mshowa
.29592 .47805 m
.29592 .4843 L
s
[(2)] .29592 .46555 0 1 Mshowa
.43197 .47805 m
.43197 .4843 L
s
[(3)] .43197 .46555 0 1 Mshowa
.56803 .47805 m
.56803 .4843 L
s
[(4)] .56803 .46555 0 1 Mshowa
.70408 .47805 m
.70408 .4843 L
s
[(5)] .70408 .46555 0 1 Mshowa
.84014 .47805 m
.84014 .4843 L
s
[(6)] .84014 .46555 0 1 Mshowa
.97619 .47805 m
.97619 .4843 L
s
[(7)] .97619 .46555 0 1 Mshowa
.125 Mabswid
.05102 .47805 m
.05102 .4818 L
s
.07823 .47805 m
.07823 .4818 L
s
.10544 .47805 m
.10544 .4818 L
s
.13265 .47805 m
.13265 .4818 L
s
.18707 .47805 m
.18707 .4818 L
s
.21429 .47805 m
.21429 .4818 L
s
.2415 .47805 m
.2415 .4818 L
s
.26871 .47805 m
.26871 .4818 L
s
.32313 .47805 m
.32313 .4818 L
s
.35034 .47805 m
.35034 .4818 L
s
.37755 .47805 m
.37755 .4818 L
s
.40476 .47805 m
.40476 .4818 L
s
.45918 .47805 m
.45918 .4818 L
s
.48639 .47805 m
.48639 .4818 L
s
.51361 .47805 m
.51361 .4818 L
s
.54082 .47805 m
.54082 .4818 L
s
.59524 .47805 m
.59524 .4818 L
s
.62245 .47805 m
.62245 .4818 L
s
.64966 .47805 m
.64966 .4818 L
s
.67687 .47805 m
.67687 .4818 L
s
.73129 .47805 m
.73129 .4818 L
s
.7585 .47805 m
.7585 .4818 L
s
.78571 .47805 m
.78571 .4818 L
s
.81293 .47805 m
.81293 .4818 L
s
.86735 .47805 m
.86735 .4818 L
s
.89456 .47805 m
.89456 .4818 L
s
.92177 .47805 m
.92177 .4818 L
s
.94898 .47805 m
.94898 .4818 L
s
.25 Mabswid
0 .47805 m
1 .47805 L
s
.02381 .04859 m
.03006 .04859 L
s
[(-4)] .01131 .04859 1 0 Mshowa
.02381 .15595 m
.03006 .15595 L
s
[(-3)] .01131 .15595 1 0 Mshowa
.02381 .26332 m
.03006 .26332 L
s
[(-2)] .01131 .26332 1 0 Mshowa
.02381 .37069 m
.03006 .37069 L
s
[(-1)] .01131 .37069 1 0 Mshowa
.02381 .58542 m
.03006 .58542 L
s
[(1)] .01131 .58542 1 0 Mshowa
.125 Mabswid
.02381 .07006 m
.02756 .07006 L
s
.02381 .09153 m
.02756 .09153 L
s
.02381 .11301 m
.02756 .11301 L
s
.02381 .13448 m
.02756 .13448 L
s
.02381 .17743 m
.02756 .17743 L
s
.02381 .1989 m
.02756 .1989 L
s
.02381 .22037 m
.02756 .22037 L
s
.02381 .24185 m
.02756 .24185 L
s
.02381 .28479 m
.02756 .28479 L
s
.02381 .30627 m
.02756 .30627 L
s
.02381 .32774 m
.02756 .32774 L
s
.02381 .34921 m
.02756 .34921 L
s
.02381 .39216 m
.02756 .39216 L
s
.02381 .41363 m
.02756 .41363 L
s
.02381 .4351 m
.02756 .4351 L
s
.02381 .45658 m
.02756 .45658 L
s
.02381 .49952 m
.02756 .49952 L
s
.02381 .521 m
.02756 .521 L
s
.02381 .54247 m
.02756 .54247 L
s
.02381 .56394 m
.02756 .56394 L
s
.02381 .02711 m
.02756 .02711 L
s
.02381 .00564 m
.02756 .00564 L
s
.02381 .60689 m
.02756 .60689 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .60332 m
.06244 .57283 L
.10458 .53958 L
.14415 .50835 L
.18221 .47832 L
.22272 .44635 L
.26171 .41558 L
.30316 .38289 L
.34309 .3514 L
.3815 .32118 L
.42237 .28931 L
.46172 .25967 L
.49955 .23468 L
.5095 .22948 L
.51896 .22548 L
.52417 .22382 L
.52712 .22309 L
.52853 .22281 L
.52986 .22257 L
.53108 .22241 L
.5324 .22226 L
.53359 .22218 L
.53469 .22213 L
.53589 .22213 L
.53719 .22218 L
.53785 .22224 L
.53856 .22231 L
.53984 .2225 L
.54106 .22274 L
.5424 .22305 L
.54371 .22339 L
.5444 .22356 L
.54512 .22372 L
.54644 .22389 L
.54765 .22388 L
.54878 .22372 L
.55001 .22342 L
.55146 .22292 L
.55278 .22239 L
.55575 .221 L
.56108 .21822 L
.5812 .20804 L
.62118 .1889 L
.65965 .16789 L
.70057 .14502 L
.73997 .12433 L
.77786 .10704 L
.8182 .08886 L
.85702 .07089 L
.8983 .05154 L
Mistroke
.93806 .03273 L
.97619 .01472 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzFmXtsVEUUxqe73S20DW3pg5aKLVCgzy0i8hAaRAIN1CJWJChaKVVsFYv0
kSCpXCWiEETFAAHFhBijRo0h0USDBqPGJ7EajEhEUJQoGjRABA0a1rvf7nTP
OTN7V8ToP7dfv985Zx53Zu/d2caW7rZb72zpbm9tKa3vbLmrrb21q3TW8k7X
8qcoldKmlDqcrVzdq/zfqJKwE253wkrJv7nuxa+U4/4f8a718HzImn+eWdSb
Tf5Ns/B6NJJuITNBMi1kBsggC5kOks16fwXEYEt0HUiehUwBKbCQySCFEZLh
hF0Q4Hwi+NAIzyQklUeNR+pFSaLGoVZJJCqolM8JB9GcH8MaCzg8AgdGUmNp
KshrhBA2MllYNcJGRUi6JsqIqkTUmNjgfQYvh1lhmbbRIFUWUgZSYyEjQGrZ
zSzF8C+xRA9DyHgLKQaZYCGFqDbJQgqQM8VC8kDqLGQwyDTW3xyI6ZboQSAz
LCQTZKaFpIPUW8gAkNkWEgRpsBA/Rt9oISnImcdG4l6bZOifsI2Ph7OwF0j7
d9gLpX0G9g3S/hX2jdI+Bbs53rWTuC6Wcb/AXiLt47BvkfZPsJdK+xjsttjm
cd00Ar8HvD0C3dlXgahtbJujCFvmtdW/RUhHbJ8HeZQrjxCnI7ZFfbwzX8NZ
4dXKIYR0JevvQYT12Mf8JdE9crYOIHOltPfDXhW/Y5/j2ivj9sFeLe1PYd8r
7T7Ya6T9MdEG3IuctdL+EPaD8Q5+gOt6Gfcu7A3Sfgf2Rmm/BfsRae/BnG6S
9huI3izt3bC3Svs12NviPX4V18dl3AtOOEOpHdJ+Dn14VtrPoMjz0n4a9ovS
fgr2S9LeCXtXvGs7Cdwlo59EyMvS3kG0AZ8g+hUJt+vpwCIP8KW9jWgdknAf
bEWl3bF9wN5htN7C7xR2L91xQczzZuK87kQfnf0GfXt4DC3ucTz28Ca+krxH
8CjRbzrW/fwwmnxbzuJGog34EF/7+j5vwPU9Gb2eaAOuI/p9CR9AwY+kvZZo
A95P9F4J16Bgn7TvI7ovPh5qfyJzViNkn7TvIdqAvUR/JuEqFNwv7buJNuBK
or+Id5zaB2ROD0IOSrubaAN2Ef2VhJ1EH5JwBdGHJVyOrhyRdgfRGsaejuR5
yXOWEf2dhHcQfVTCdhT/IbY7Avx1vo1ohCTaubcRfcwrcCnRPzrRT4wAj/Xj
9cTt1HGvQq1EewYuIfpnx/ohsBjNnfCqcjPRJ+QcNhN9UsKbiD4l4SK0fDp+
lxcReFpGX0/0GQkXEv2bhAtQ/Ky0ryPagPOJ/kPCJhQ8F+94E4HnZPQ8osMS
Xs1hiuSN+gU8VZKreKbBGzgPSD6H86DkldgQRWg/C7oKayeEq6vdL5PV0DUk
S3/J93G7kOgshz+0KsX/IRJbQbSP6HKRU23pQr9B4RCic4iuTRAf+jcazcd8
5CcuG1SsA7IhOpPGfaIN5RFdQHQVOhCJ7D8BqMYNjN7G0N+tT/3CBDEVohVr
0FiijZVZiVVFx5KfZMn0lxZ3pYZXtS4lo3laIBsTV4QOVevlH53KgHYqcP/I
wp/Gd5Zx9lTHea7kUzk3Tqgu158JQySZzDMNPonzQskn6MrFklzGM8Hdx4V7
bXbnnIXSl9C08/RT6eIZcAGFLqQT/5f/X/ch4ar39R/k2WiiDZYoxmiKbv4w
DvU4r+V8uOQ1epWWeQ2CcJ+SZJTMrNA1yyUp55kGH8O5cfw5mvNKyct0y8Yh
6EieafARnIfioxWkVmaW6DbHSXIxzzT4MM4vlbxYVzYOXIfyTIMXcT4xPhpB
jAPbAt2mcWCbzzMNnsf5VMlzOTeOfXPIrwycZPNMg2dxro+Io+9alFwpMzN1
m8YRcQbPNHg657Mc69eegTwKx82Jvhik6b7M8YoSPxPYYv3GLykNXhX9ut25
XlE+XnGuw77/0PcH93qNrRIeRSoaoI+/fUl/FEse8Y+9cIIf9VTKX4ue+ls=
\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {-0.408781, -4.53743, \
0.0264061, 0.0334618}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"-", 
      RowBox[{"GetMainIncrement", "[", 
       RowBox[{"100", ",", "0", ",", "0.3`", ",", 
        RowBox[{"Evaluate", "[", 
         SuperscriptBox["10", "logre"], "]"}], ",", "2"}], "]"}]}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"logre", ",", "0", ",", "7"}], "}"}]}], "]"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.136054 0.44963 0.131448 [
[.15986 .43713 -3 -9 ]
[.15986 .43713 3 0 ]
[.29592 .43713 -3 -9 ]
[.29592 .43713 3 0 ]
[.43197 .43713 -3 -9 ]
[.43197 .43713 3 0 ]
[.56803 .43713 -3 -9 ]
[.56803 .43713 3 0 ]
[.70408 .43713 -3 -9 ]
[.70408 .43713 3 0 ]
[.84014 .43713 -3 -9 ]
[.84014 .43713 3 0 ]
[.97619 .43713 -3 -9 ]
[.97619 .43713 3 0 ]
[.01131 .05529 -12 -4.5 ]
[.01131 .05529 0 4.5 ]
[.01131 .18673 -12 -4.5 ]
[.01131 .18673 0 4.5 ]
[.01131 .31818 -12 -4.5 ]
[.01131 .31818 0 4.5 ]
[.01131 .58108 -6 -4.5 ]
[.01131 .58108 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15986 .44963 m
.15986 .45588 L
s
[(1)] .15986 .43713 0 1 Mshowa
.29592 .44963 m
.29592 .45588 L
s
[(2)] .29592 .43713 0 1 Mshowa
.43197 .44963 m
.43197 .45588 L
s
[(3)] .43197 .43713 0 1 Mshowa
.56803 .44963 m
.56803 .45588 L
s
[(4)] .56803 .43713 0 1 Mshowa
.70408 .44963 m
.70408 .45588 L
s
[(5)] .70408 .43713 0 1 Mshowa
.84014 .44963 m
.84014 .45588 L
s
[(6)] .84014 .43713 0 1 Mshowa
.97619 .44963 m
.97619 .45588 L
s
[(7)] .97619 .43713 0 1 Mshowa
.125 Mabswid
.05102 .44963 m
.05102 .45338 L
s
.07823 .44963 m
.07823 .45338 L
s
.10544 .44963 m
.10544 .45338 L
s
.13265 .44963 m
.13265 .45338 L
s
.18707 .44963 m
.18707 .45338 L
s
.21429 .44963 m
.21429 .45338 L
s
.2415 .44963 m
.2415 .45338 L
s
.26871 .44963 m
.26871 .45338 L
s
.32313 .44963 m
.32313 .45338 L
s
.35034 .44963 m
.35034 .45338 L
s
.37755 .44963 m
.37755 .45338 L
s
.40476 .44963 m
.40476 .45338 L
s
.45918 .44963 m
.45918 .45338 L
s
.48639 .44963 m
.48639 .45338 L
s
.51361 .44963 m
.51361 .45338 L
s
.54082 .44963 m
.54082 .45338 L
s
.59524 .44963 m
.59524 .45338 L
s
.62245 .44963 m
.62245 .45338 L
s
.64966 .44963 m
.64966 .45338 L
s
.67687 .44963 m
.67687 .45338 L
s
.73129 .44963 m
.73129 .45338 L
s
.7585 .44963 m
.7585 .45338 L
s
.78571 .44963 m
.78571 .45338 L
s
.81293 .44963 m
.81293 .45338 L
s
.86735 .44963 m
.86735 .45338 L
s
.89456 .44963 m
.89456 .45338 L
s
.92177 .44963 m
.92177 .45338 L
s
.94898 .44963 m
.94898 .45338 L
s
.25 Mabswid
0 .44963 m
1 .44963 L
s
.02381 .05529 m
.03006 .05529 L
s
[(-3)] .01131 .05529 1 0 Mshowa
.02381 .18673 m
.03006 .18673 L
s
[(-2)] .01131 .18673 1 0 Mshowa
.02381 .31818 m
.03006 .31818 L
s
[(-1)] .01131 .31818 1 0 Mshowa
.02381 .58108 m
.03006 .58108 L
s
[(1)] .01131 .58108 1 0 Mshowa
.125 Mabswid
.02381 .08158 m
.02756 .08158 L
s
.02381 .10787 m
.02756 .10787 L
s
.02381 .13416 m
.02756 .13416 L
s
.02381 .16045 m
.02756 .16045 L
s
.02381 .21302 m
.02756 .21302 L
s
.02381 .23931 m
.02756 .23931 L
s
.02381 .2656 m
.02756 .2656 L
s
.02381 .29189 m
.02756 .29189 L
s
.02381 .34447 m
.02756 .34447 L
s
.02381 .37076 m
.02756 .37076 L
s
.02381 .39705 m
.02756 .39705 L
s
.02381 .42334 m
.02756 .42334 L
s
.02381 .47592 m
.02756 .47592 L
s
.02381 .50221 m
.02756 .50221 L
s
.02381 .5285 m
.02756 .5285 L
s
.02381 .55479 m
.02756 .55479 L
s
.02381 .029 m
.02756 .029 L
s
.02381 .00271 m
.02756 .00271 L
s
.02381 .60737 m
.02756 .60737 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .60332 m
.06244 .56599 L
.10458 .52529 L
.14415 .48707 L
.18221 .45035 L
.22272 .41143 L
.26171 .37452 L
.30316 .33762 L
.32392 .32168 L
.33304 .31573 L
.34309 .3103 L
.34772 .30829 L
.35028 .30734 L
.35271 .30656 L
.35496 .30595 L
.35742 .30541 L
.3585 .30523 L
.35966 .30507 L
.36075 .30495 L
.36173 .30487 L
.36297 .30481 L
.36428 .3048 L
.3654 .30484 L
.36662 .30494 L
.36794 .3051 L
.36936 .30533 L
.37191 .30588 L
.37314 .30614 L
.37379 .30625 L
.37449 .30635 L
.37575 .30641 L
.37693 .30633 L
.37805 .30611 L
.3791 .30581 L
.38025 .30523 L
.3815 .30417 L
.40115 .2888 L
.41228 .28182 L
.42264 .27724 L
.46226 .2629 L
.50131 .24401 L
.54281 .22395 L
.58279 .20462 L
.62125 .18603 L
.66217 .16626 L
.70158 .14722 L
.73946 .12892 L
.7798 .10943 L
.81863 .09064 L
.8599 .0706 L
Mistroke
.89966 .05106 L
.93791 .03327 L
.97619 .01472 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzdmg1olVUYx++2e+/c/Nya0601r+577kNbc84paabLOZc2E7NarqlsYl9q
RB9SYlRIIWEhIiIiJSIiIiIlfSGFlCAlFRJFUYiYlKVZmHnbnjP/e+/1+Z9z
X2USyXzueZ/z+z/v+XjPe973vGdO++rOpY+0r+7qaI80rmx/vLOrY1Vk5mMr
u10pSYFAUmcgEPguEuhJR7uTvSba/Rft6jE9Hj19k/ykBIwgav732FZPfrKJ
2Z2a70PVH/mzlIxUh6YRVUh3kDNADnKQ00EOcZDTQA5TW3QqDjMdkaaAzHKQ
DSCzHWQ9yJEOsg5kroOsBZnnIGtA5hsyredHwFSmGQ9NxGgGyE8olozKCAiE
WZRqRBlj4EEKGWTqSqgLjTrMThZEheR4LITFRpgOB61wGZDSayhqCdTl19Fc
RYhSkXBHFUBT5bgMIgg2zkHmI2aNg8wDWesgc0HWeci+AZqDw3pHpGyQDQ4y
C+QUB5mBtrndQQ5FzDsc5GCQdzrIgSBnOsg0kHc5yFSQTWp7h3HY7IiUArLF
QSaBnMvJy4Du4dAlQJap8CKgBRz6C9BCDl0AtIhD5wE9EN+i55Bq4/qzgBZz
6BdAD3PoDKAlHDoNaBmHTgHq5NBJQMs59BOgFRz6AcPs0fgm/B6pJ7j+W0Cr
OPQNoCc5dALQUxz6GtDTHPoS0LMGklu/3Pm1G/1x4Gs8uI+Z4nMEeN5waQqk
TRfHIFxrhDKdalNaGN10FKl1RjNQwUOK71Oc7CUjTHQ6PQLhK9fWPh+jyOs9
7UMn0cM432u8jz8CtIFDHwB6nUPvAdrIoUOA3owfJu8itYnrDwLazKEDgLZw
aD+grRzaB2gbh/YC2s6hPYB2cGg3oLc4tAvQTg7tBLQrvp3fRmo31+8AtIdD
2wHt5dA2QPs4tBXQfg5tAXSAQ5sBHeTQJkDvcOgNDK5D8U24Ean3uX4D9B9y
6FVAhzm0Hqf7hEMvI9IRDr0I6DMOrVN8Rzm+FqU7xqEXFJ8X77vrS+oLHmmN
4rPgzym+4xx/BkX4ikMyjcttO0XJtQjl0SAIoaROGDwNMbU5ZwX67UeDJzpZ
LUd9TvoTdkJ4ygjDrGwhlG0ZNKf9nWyp4vMZYoni+9nTtHSW7FB8Z/ydux31
/pX3/WLFZ8EfUnxnOd6m+H7j+IOK7/f44ahB53jM+xXfeY4vUnx/cPw+xXeB
4wsV358cX4BKX+TQvYrPgs9XfH9zvFXxXYrvEg36h8ecp/guc3yu4oty/G6G
J3FNC9Mkc00zqi/HIU7OZtEtmiamCXONtogs1ruSLCWm5AAevZFp0rimb+FZ
ji2rz+WmPbr/DVdyM5ErK42SWYWU+GTWqoCvUoliWVCvUHxZis9o9Xejckte
lRKrTPElK75SS1yt3D6rqXFaH1QnGE+raj9XIVPxjfBTNHmK0CpoK7h2iVlG
p1bwDMWXo/j61tdNlGBM7hV3MHYwaLX1Wb5hiu/mBLVllpImIB+n+Cz3Sxl8
4tLadKSlG23DNr5grALapVCu+LTh7a1UMruuhii+XFS577ZXFXuhhGJzy3Ct
WwbYZMUn1vJ1roFphnPNJKaxfNurZ5oRXDORaSxfBuuYJodrJjCN5btiLdOY
QWYe9eWyaxNGDaKtyWmvFNfDBXut1xe4slTYv6e+EdX7v3D/pbL44xKekrS1
jZIEtYneuhPVWoo+XvGJHcU12pQnNsI12kOL2NFcoz0YiB3DNVoziS3w131i
Cz0az1ONQhbx6Nr8KraYa7RHbrElXFPKNKVco12QYsu4pphpyrmmiGnGck0h
01RwTQHTVMb3JCUtmyVGM00114zCGeX4Vk7ms+gWzS1MU8M1eUxzG9doz9Ji
LZs7cplmAtdo7xRir9oaQsmJPLr2qiXWsrEkm2kmcY32VirWsi1Fe4kXO5lr
NJ9Yy6aWjNjrcSontXcql2Yo00yL7z9KWjbPDGaa6VyjfV0Wa9l6oy1ci53B
NelMY9m4o32fF2uWsBwfNbRnWrG9G4ASXX6nG8hm+YtDN681OeKksBqKne2v
FHQjXrO/ONrjm9g5nr6RbK39tPdnsS2uUujv95Ka572SrnrFkQTZOIX8Vk9+
/2wqvuFblSXt2GQdSPoX6NHeWA==\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {-0.408781, -3.48994, \
0.0264061, 0.0273314}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"-", 
      RowBox[{"GetMainIncrement", "[", 
       RowBox[{"50", ",", "0", ",", "0.001`", ",", 
        RowBox[{"Evaluate", "[", 
         SuperscriptBox["10", "logre"], "]"}], ",", "2"}], "]"}]}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"logre", ",", "0", ",", "7"}], "}"}]}], "]"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.136054 0.483193 0.102998 [
[.15986 .47069 -3 -9 ]
[.15986 .47069 3 0 ]
[.29592 .47069 -3 -9 ]
[.29592 .47069 3 0 ]
[.43197 .47069 -3 -9 ]
[.43197 .47069 3 0 ]
[.56803 .47069 -3 -9 ]
[.56803 .47069 3 0 ]
[.70408 .47069 -3 -9 ]
[.70408 .47069 3 0 ]
[.84014 .47069 -3 -9 ]
[.84014 .47069 3 0 ]
[.97619 .47069 -3 -9 ]
[.97619 .47069 3 0 ]
[.01131 .0712 -12 -4.5 ]
[.01131 .0712 0 4.5 ]
[.01131 .1742 -12 -4.5 ]
[.01131 .1742 0 4.5 ]
[.01131 .2772 -12 -4.5 ]
[.01131 .2772 0 4.5 ]
[.01131 .3802 -12 -4.5 ]
[.01131 .3802 0 4.5 ]
[.01131 .58619 -6 -4.5 ]
[.01131 .58619 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15986 .48319 m
.15986 .48944 L
s
[(1)] .15986 .47069 0 1 Mshowa
.29592 .48319 m
.29592 .48944 L
s
[(2)] .29592 .47069 0 1 Mshowa
.43197 .48319 m
.43197 .48944 L
s
[(3)] .43197 .47069 0 1 Mshowa
.56803 .48319 m
.56803 .48944 L
s
[(4)] .56803 .47069 0 1 Mshowa
.70408 .48319 m
.70408 .48944 L
s
[(5)] .70408 .47069 0 1 Mshowa
.84014 .48319 m
.84014 .48944 L
s
[(6)] .84014 .47069 0 1 Mshowa
.97619 .48319 m
.97619 .48944 L
s
[(7)] .97619 .47069 0 1 Mshowa
.125 Mabswid
.05102 .48319 m
.05102 .48694 L
s
.07823 .48319 m
.07823 .48694 L
s
.10544 .48319 m
.10544 .48694 L
s
.13265 .48319 m
.13265 .48694 L
s
.18707 .48319 m
.18707 .48694 L
s
.21429 .48319 m
.21429 .48694 L
s
.2415 .48319 m
.2415 .48694 L
s
.26871 .48319 m
.26871 .48694 L
s
.32313 .48319 m
.32313 .48694 L
s
.35034 .48319 m
.35034 .48694 L
s
.37755 .48319 m
.37755 .48694 L
s
.40476 .48319 m
.40476 .48694 L
s
.45918 .48319 m
.45918 .48694 L
s
.48639 .48319 m
.48639 .48694 L
s
.51361 .48319 m
.51361 .48694 L
s
.54082 .48319 m
.54082 .48694 L
s
.59524 .48319 m
.59524 .48694 L
s
.62245 .48319 m
.62245 .48694 L
s
.64966 .48319 m
.64966 .48694 L
s
.67687 .48319 m
.67687 .48694 L
s
.73129 .48319 m
.73129 .48694 L
s
.7585 .48319 m
.7585 .48694 L
s
.78571 .48319 m
.78571 .48694 L
s
.81293 .48319 m
.81293 .48694 L
s
.86735 .48319 m
.86735 .48694 L
s
.89456 .48319 m
.89456 .48694 L
s
.92177 .48319 m
.92177 .48694 L
s
.94898 .48319 m
.94898 .48694 L
s
.25 Mabswid
0 .48319 m
1 .48319 L
s
.02381 .0712 m
.03006 .0712 L
s
[(-4)] .01131 .0712 1 0 Mshowa
.02381 .1742 m
.03006 .1742 L
s
[(-3)] .01131 .1742 1 0 Mshowa
.02381 .2772 m
.03006 .2772 L
s
[(-2)] .01131 .2772 1 0 Mshowa
.02381 .3802 m
.03006 .3802 L
s
[(-1)] .01131 .3802 1 0 Mshowa
.02381 .58619 m
.03006 .58619 L
s
[(1)] .01131 .58619 1 0 Mshowa
.125 Mabswid
.02381 .0918 m
.02756 .0918 L
s
.02381 .1124 m
.02756 .1124 L
s
.02381 .133 m
.02756 .133 L
s
.02381 .1536 m
.02756 .1536 L
s
.02381 .1948 m
.02756 .1948 L
s
.02381 .2154 m
.02756 .2154 L
s
.02381 .236 m
.02756 .236 L
s
.02381 .2566 m
.02756 .2566 L
s
.02381 .2978 m
.02756 .2978 L
s
.02381 .3184 m
.02756 .3184 L
s
.02381 .339 m
.02756 .339 L
s
.02381 .3596 m
.02756 .3596 L
s
.02381 .40079 m
.02756 .40079 L
s
.02381 .42139 m
.02756 .42139 L
s
.02381 .44199 m
.02756 .44199 L
s
.02381 .46259 m
.02756 .46259 L
s
.02381 .50379 m
.02756 .50379 L
s
.02381 .52439 m
.02756 .52439 L
s
.02381 .54499 m
.02756 .54499 L
s
.02381 .56559 m
.02756 .56559 L
s
.02381 .0506 m
.02756 .0506 L
s
.02381 .03 m
.02756 .03 L
s
.02381 .0094 m
.02756 .0094 L
s
.02381 .60679 m
.02756 .60679 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .60332 m
.06244 .57407 L
.10458 .54217 L
.14415 .51222 L
.18221 .48341 L
.22272 .45274 L
.26171 .42322 L
.30316 .39185 L
.34309 .36162 L
.3815 .33254 L
.42237 .3016 L
.46172 .27182 L
.49955 .2432 L
.53984 .21278 L
.57861 .18374 L
.61984 .15379 L
.64043 .13986 L
.65954 .12831 L
.66906 .12338 L
.67803 .11946 L
.683 .11767 L
.68837 .1161 L
.69074 .11555 L
.69325 .11507 L
.69539 .11477 L
.6966 .11463 L
.69774 .11454 L
.699 .11447 L
.69963 .11445 L
.70034 .11444 L
.70158 .11445 L
.70274 .11449 L
.70341 .11454 L
.70411 .1146 L
.70536 .11474 L
.70819 .11518 L
.70936 .11539 L
.71047 .11556 L
.71175 .1157 L
.71292 .11573 L
.7142 .11563 L
.71493 .11552 L
.7156 .11538 L
.71681 .11505 L
.71809 .11462 L
.72029 .11376 L
.72153 .11313 L
.72265 .11239 L
.72693 .10963 L
.73665 .10374 L
Mistroke
.74586 .0988 L
.75567 .09459 L
.75858 .09362 L
.76132 .09284 L
.76643 .09181 L
.77119 .09146 L
.77249 .0915 L
.77322 .0915 L
.77389 .09125 L
.77641 .09032 L
.7862 .08664 L
.79652 .08272 L
.81501 .07572 L
.85491 .06062 L
.89329 .04609 L
.93412 .03064 L
.97344 .01576 L
.97619 .01472 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztmX1MVXUYxw9cLihKgsiLjJREJ+9a6cgwabhkmrJCe3FMibCCVUaIyxx1
KssaCydNe7WotGVlLStrvSwXLiqbWtmy6dJGNWuzTWrkys3bOc+9v3u+z/P7
3QOls3/6w+P3fj/P8/zezu8czjkLGtqabri1oa25sSGvurWhpam5cUXenNta
HSsQZ1lxTZZlHU61HN1uBb63xofsULMdsiz5f7pzCFiW7fx2vYVnwIun6osM
EXPhZ5KBV1NysoFcRmSkgVTZIefXOQZSSSTNQC6hamNYfysoOtMQXU5krIFM
I5JrIOcTGW8gZUQmGEgxkUkGUkidLGD9nUzRRYbofCKlBnIeJU81kHGUc4FL
RpAMcp5LmdNdPhJIAo/KoajyQaKyqIEZblSiZcXboURqLkDDyqASM1043E2N
pFmJvEZ4GmYNFpZKZS91SbIilhaVQlGzI4OP13gy8TmGaUsiMtdAglRoPluy
OMe2rBoZfdIOOf3XdtSflHaNtE+QvVjaA2TXSft3spdIu5/seq93/QDrZfRP
zkCdWQvQ3DkrZlkNMqSPJiKJai2T8AjBFml/R9ErpH2I7JXSPghag99Szipv
PAfouFrGfU12u7T3g9bgl5RjS/sL0BrcB/oeCfdQwTVeZ/cAXCOjd1PIWml/
BlqDn4J+MLJHwssTtXupbIcLhzmHYNjWdsfHoDv89vUuqtcZ2dSJPMqRPeB0
RvZjPO/SR6DX+bW1k1K7Buv7h6C7zLPwAVXaIOfvfdAafA/0Rm8R36Xj4zL6
HdAa3EE5T0n7LdAafBP0Jgm3U8Fuab8OutvrMtrPypxXKWSztLeB1uAroLdI
+DLoFyTcSq1tlfaLPER1HO2XZM4WCtkm7c1iEAw+zwfO4XOgX5Owm1rbLu1n
+KJw+DToN7xRbaLjDhn9JD9hOHwC9NsSPqZOTNonQb47HgWtQmJupY3i/Keb
rjJwQ20A7e4i92KAWzeRtuAj1DF3f7o33CjEvzm6QFNgrIvBetA7BxvHOmq4
xzZeDDpB98i5fBj0Lgk7qGyvt5QdAHtl9EOgP5FwLeXvlvYDoDV4P+jPJbyP
Cu6V9r2g93odR3ufzLmbQr6S9l2gNdgOer+Eq6ngN9K+E7QGV4E+4HX8Djoe
lNErQWuwDfQhCVup4GFp3w5agy2gj0i4nAr2eV1eDrBPRt8C+gcJbwb9o4TN
VPyotJtAH41sgCD/O/8m0D/bPpvzRtC/+AUuo74cs8MXgiCPcmQjOMf8Cl0P
+le/wOuoxeO2cYfXgz7uV2Up6H45k0tA/yZhHbU/4K1yHcABGb0Y9B8SXgv6
hIRXU/G/pH0VaA0uAn1SwloqeMrreC3AUzL6CtAhCWvUA09AkgU8TePzOU+Q
fJ6qrL09KKKzOQecFHLCD9Xhh+5ietAqiT4e4w0sMmi0s8lJtfntpEj8LoOM
QtDxoAtETomh8aiBMAt0GugpMeLLzkSjmaDTYxd3NvQUn+ZwJhP9mhtD04wj
LSbHjYk+15fQ0oUXsGyoldHPjhFTKFoxBk0FHTSceQF1+mQNcrJEi4r1KOX1
jCeR1jAWSOVDDajTvExNZVA5hbRycMpX8j03WjYzU+25DEkqeKbGZ6jMbEku
4pkaL+dce/c2XVWmd2/OVdw5LnXfTWAQ/uGX9A/9BDwthp1GodPpxH/ln+0+
nLFVc+8nuN3+X7izuHBwvabdWSSYSZcOIUZrCO86IXqpbcW8Tzn/tFftpZzn
mwYCfKIdvVQWw8t3nlPIczRewHmB5JM5L5R8kmq5RJKJPFPj+ZyXeqOZoGpq
HwTyeI7Gx6nMCyU5l2dqPJfzaZLnqMrlkozlmeXeOLJVzsUyJ5PnaDyD8wrJ
01XlWZKM5pkaT+O8UvJRqnKVN45RPKdK5qRwPlvyEaqm9qUimWcS1x//hvOo
atvnASlJtTXPL0p8RzHFBrRPTZf7VQyodmv8ouJ5xRqbPQ3iHcI5XmmqRBcy
KxxQ6y1RyPxdc+GQI/61F4rx/daK+xsr97Zu\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {-0.408781, -4.77978, \
0.0264061, 0.0348809}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"-", 
      RowBox[{"GetMainIncrement", "[", 
       RowBox[{"50", ",", "0", ",", "1", ",", 
        RowBox[{"Evaluate", "[", 
         SuperscriptBox["10", "logre"], "]"}], ",", "2"}], "]"}]}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"logre", ",", "0", ",", "7"}], "}"}]}], "]"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.136054 0.450095 0.128224 [
[.15986 .43759 -3 -9 ]
[.15986 .43759 3 0 ]
[.29592 .43759 -3 -9 ]
[.29592 .43759 3 0 ]
[.43197 .43759 -3 -9 ]
[.43197 .43759 3 0 ]
[.56803 .43759 -3 -9 ]
[.56803 .43759 3 0 ]
[.70408 .43759 -3 -9 ]
[.70408 .43759 3 0 ]
[.84014 .43759 -3 -9 ]
[.84014 .43759 3 0 ]
[.97619 .43759 -3 -9 ]
[.97619 .43759 3 0 ]
[.01131 .06542 -12 -4.5 ]
[.01131 .06542 0 4.5 ]
[.01131 .19365 -12 -4.5 ]
[.01131 .19365 0 4.5 ]
[.01131 .32187 -12 -4.5 ]
[.01131 .32187 0 4.5 ]
[.01131 .57832 -6 -4.5 ]
[.01131 .57832 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15986 .45009 m
.15986 .45634 L
s
[(1)] .15986 .43759 0 1 Mshowa
.29592 .45009 m
.29592 .45634 L
s
[(2)] .29592 .43759 0 1 Mshowa
.43197 .45009 m
.43197 .45634 L
s
[(3)] .43197 .43759 0 1 Mshowa
.56803 .45009 m
.56803 .45634 L
s
[(4)] .56803 .43759 0 1 Mshowa
.70408 .45009 m
.70408 .45634 L
s
[(5)] .70408 .43759 0 1 Mshowa
.84014 .45009 m
.84014 .45634 L
s
[(6)] .84014 .43759 0 1 Mshowa
.97619 .45009 m
.97619 .45634 L
s
[(7)] .97619 .43759 0 1 Mshowa
.125 Mabswid
.05102 .45009 m
.05102 .45384 L
s
.07823 .45009 m
.07823 .45384 L
s
.10544 .45009 m
.10544 .45384 L
s
.13265 .45009 m
.13265 .45384 L
s
.18707 .45009 m
.18707 .45384 L
s
.21429 .45009 m
.21429 .45384 L
s
.2415 .45009 m
.2415 .45384 L
s
.26871 .45009 m
.26871 .45384 L
s
.32313 .45009 m
.32313 .45384 L
s
.35034 .45009 m
.35034 .45384 L
s
.37755 .45009 m
.37755 .45384 L
s
.40476 .45009 m
.40476 .45384 L
s
.45918 .45009 m
.45918 .45384 L
s
.48639 .45009 m
.48639 .45384 L
s
.51361 .45009 m
.51361 .45384 L
s
.54082 .45009 m
.54082 .45384 L
s
.59524 .45009 m
.59524 .45384 L
s
.62245 .45009 m
.62245 .45384 L
s
.64966 .45009 m
.64966 .45384 L
s
.67687 .45009 m
.67687 .45384 L
s
.73129 .45009 m
.73129 .45384 L
s
.7585 .45009 m
.7585 .45384 L
s
.78571 .45009 m
.78571 .45384 L
s
.81293 .45009 m
.81293 .45384 L
s
.86735 .45009 m
.86735 .45384 L
s
.89456 .45009 m
.89456 .45384 L
s
.92177 .45009 m
.92177 .45384 L
s
.94898 .45009 m
.94898 .45384 L
s
.25 Mabswid
0 .45009 m
1 .45009 L
s
.02381 .06542 m
.03006 .06542 L
s
[(-3)] .01131 .06542 1 0 Mshowa
.02381 .19365 m
.03006 .19365 L
s
[(-2)] .01131 .19365 1 0 Mshowa
.02381 .32187 m
.03006 .32187 L
s
[(-1)] .01131 .32187 1 0 Mshowa
.02381 .57832 m
.03006 .57832 L
s
[(1)] .01131 .57832 1 0 Mshowa
.125 Mabswid
.02381 .09107 m
.02756 .09107 L
s
.02381 .11671 m
.02756 .11671 L
s
.02381 .14236 m
.02756 .14236 L
s
.02381 .168 m
.02756 .168 L
s
.02381 .21929 m
.02756 .21929 L
s
.02381 .24494 m
.02756 .24494 L
s
.02381 .27058 m
.02756 .27058 L
s
.02381 .29623 m
.02756 .29623 L
s
.02381 .34752 m
.02756 .34752 L
s
.02381 .37316 m
.02756 .37316 L
s
.02381 .39881 m
.02756 .39881 L
s
.02381 .42445 m
.02756 .42445 L
s
.02381 .47574 m
.02756 .47574 L
s
.02381 .50138 m
.02756 .50138 L
s
.02381 .52703 m
.02756 .52703 L
s
.02381 .55267 m
.02756 .55267 L
s
.02381 .03978 m
.02756 .03978 L
s
.02381 .01413 m
.02756 .01413 L
s
.02381 .60396 m
.02756 .60396 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .60332 m
.06244 .56692 L
.10458 .52725 L
.14415 .4901 L
.18221 .45476 L
.22272 .41869 L
.24141 .40352 L
.26171 .38939 L
.26709 .38628 L
.27279 .38338 L
.27807 .38114 L
.28065 .38021 L
.28302 .37948 L
.28522 .37891 L
.28763 .37841 L
.28895 .37821 L
.29018 .37806 L
.29135 .37795 L
.2926 .37789 L
.29331 .37787 L
.29397 .37788 L
.29469 .37789 L
.29545 .37793 L
.29673 .37804 L
.29746 .37812 L
.29814 .37822 L
.30074 .37866 L
.30199 .37887 L
.30316 .37902 L
.30431 .37906 L
.30558 .37897 L
.30682 .37872 L
.30752 .37852 L
.30816 .3783 L
.30954 .37774 L
.31081 .37702 L
.31146 .37649 L
.31215 .37593 L
.31361 .37476 L
.32351 .3671 L
.33316 .3604 L
.34206 .35519 L
.34694 .35286 L
.35231 .35085 L
.35509 .35008 L
.35643 .34979 L
.3577 .34956 L
.35839 .34946 L
.35914 .34937 L
.36045 .34925 L
Mistroke
.36118 .34922 L
.36198 .34921 L
.36272 .34922 L
.36341 .349 L
.3647 .3484 L
.36607 .34775 L
.36847 .34662 L
.37387 .34406 L
.38356 .33941 L
.42159 .32123 L
.46206 .30196 L
.50102 .28347 L
.54244 .26385 L
.58233 .24498 L
.62072 .22685 L
.66155 .20758 L
.70087 .18903 L
.73867 .17122 L
.77893 .15226 L
.81767 .13403 L
.83735 .12478 L
.85886 .11466 L
.86881 .10982 L
.87427 .10712 L
.87942 .1046 L
.88424 .10138 L
.88944 .09647 L
.89853 .0879 L
.93951 .04929 L
.97619 .01472 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzFmXlsFVUUxqd973VHWlpeS2lpWVra19KWFuhCK4KllCoNWFxiouaFJS0B
IbUqIY3jbgghhLhG4h5CCHHXELcYQgghrlFDiJqGqCEEicYY/3CtM98wfeec
e960LugfDPd8v++uM3PfndNV8aH+DVviQwPr4uUrBuPb+gfW3VLetXXQkUIp
lpXSb1nWSK7llIet0GmrbNQeHbBHLUv+n+9cQpZlO7Gr9V0kLRU99hCYrri7
SZih8BUkzFR4FwmzFL6chNkK7yRhjsKXYSKTFbKUhBq/jIS5bE0oyVNqXkrC
KQrvIGG+wttJWKDwxSScqvA2EkZd7iy8E6dzVysJC12Xe/sinuCGVhr3t5Cw
yDXkECHMvc0knOZ603hzYQzIKS0iYrFrzMIii6EuJOH0cbpeQMKSCUyriYSl
SRerkYQzlCWfT8IyhTeQsFzh9SScqfA6Es5iDyMls5WatSSco/AaElYoPEbC
SoVXk3CuwqtIWKXwSkykRiGzcSPmKaQcpIGtQxkKTYq7BGShQopBmhVSBNKq
kCjIYoUUgHQoJA/jXaKQyaizTCGTQDrZHHNQ6FLcmSDdCkkH6VFIBORKhYRA
ehWSArJakj8gXyXl3yCvlfIvkK9JTO1nXK+Tvp+wbNdL+Ue4b5DyD5BvkvJ3
aCQu5fNwr7e9DSLCt4VzgBvtcXaPs7D1296mwX4m/fIZWDbZ3hZIt6o0jOsb
8M0uzyYwQspfwXKzHbDtnYZl23jjHYFt0FY3uS8Bh+Q6fQ75Nimfgrxdyich
75Dyp+htOHHDP8HVlr6PIN8l5Q8g3yPl9yDfJ+UTkB+Q8nHIO6V8DPIuKR+F
vFvKRyDvSUzkXcxsr/S9DfiQlN+E/IiUD6ORx6T8Otz7pPwq5Cek/DLkp6T8
IuRnEiN+AdfnpO8Q5P1SPgj5gJQPQD4o5f2QD0n5WczveSk/DfdLUn4S8itS
3odGXktM5HFcD0vfo5DfkPLDkN+S8oOQ35HyXv/mcnkP5CMXXiDnNaPv6W7A
o0Gv8i5YjgVZdsJy3PY2jAh3OcX7cT0R1MS9aOL9IMvdsHxoqzvBnYAfB9W/
w3+L+foMQ/5Myjsgn5TydsinpHw7KfvQ8d2KcX4h3VtxH0akvAV1vpbyZlI2
4CbUOSPlfshnpbwR8jkpbyBlA64n5W8TU6PyeVknDsv3Ur7WHs2y3N88Ll8N
969S7oP8u5TX+AcLLq8mZQP2+nVCkqzi1UKJCQoSljV7/DaNL8yVvKbBY7j9
3mktF+UaPCd1uDrlsGXVjp0j6S80a4YekgtJ2f3uo7+mMRHTwzc9CKeScpWo
UzvRgURJeQop1yfx1/0bnXqH2GjyZp1dqT6gI7rMaUEdUZ0ueQ0G4DrDFxQ3
CPs3s26i7dMVm5bEUy16UU300y2SeKa954z2Hh3nYRlrVNwPumT0aytV6Vgd
YS4pF2FYtf5L4C1lxFeqcf+MB4AmLJx/Rs6ig3MjZ9HOuZGzaPPf70JJWnlN
g7dwXiR5M+fINTg/Ws71RmeVmZWehNP/op6GCWT8sxb+dt3/S/+vx5D0AadH
j4oknmRvVDKP0SFNBDn/SiVv5NzIAs3nvEzyBs7LJa/n3MgCzfNfIj+Lk8p3
W0LoZkq5kd+JcW7kd6o5N/I7VZwb+Z25nFdLXsl5TPIKzo0s0RzOaxMrI4iR
RZrFeZ3kMzmvl7zMvxuNkszgNQ1eynmT5CWcL5B8OudGXquY80WJNRHEyHsV
cd4ieSHnRnYsynmb5FM5N3JoBZy3S57PuZFpy6MJekZyeU2fe4dGSpbKmpdw
bmTqJnF+ueQ5nHdKns35csmzOEfuz/z2zOQu948uSb/dMri3O8grsuArFW/I
yKj3BLUY4d4rgrwh/3722uqHaipvq1drix7AnOsaf33Hjn3OhectPWNf4hFx
orVqRDvvuxjaaJK/AFopfwINiiK0\
\>"],
 ImageRangeCache->{{{0, 359}, {221.375, 0}} -> {-0.408781, -3.58131, \
0.0264061, 0.0280186}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:041e\:0442 \:0440\:0430\:0437\:043c\:0435\:0440\:0430 \:0441\:0435\:0442\
\:043a\:0438 (\:0441\:0445\:043e\:0434\:0438\:043c\:043e\:0441\:0442\:044c) n\
\>", "Subsubsection"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"linc", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", 
        RowBox[{"(", 
         RowBox[{"GetMainIncrement", "[", 
          RowBox[{"n", ",", "0", ",", "1", ",", "1000", ",", "2"}], "]"}], 
         ")"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "1", ",", "100", ",", "1"}], "}"}]}], "]"}]}], ";"}],
   "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Monitor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"linc1", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"n", ",", 
         RowBox[{"(", 
          RowBox[{"Take", "[", 
           RowBox[{
            RowBox[{"Sort", "[", 
             RowBox[{
              RowBox[{"GetIncrements", "[", 
               RowBox[{"n", ",", "0", ",", "1", ",", "1"}], "]"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Re", "[", "#1", "]"}], ">", 
                RowBox[{"Re", "[", "#2", "]"}]}], "&"}]}], "]"}], ",", "10"}],
            "]"}], ")"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "5", ",", "200", ",", "5"}], "}"}]}], "]"}]}], 
    ";"}], ",", "n"}], "]"}]], "Input",
 CellChangeTimes->{{3.447582754890625*^9, 3.447582757265625*^9}, {
  3.44758279359375*^9, 3.4475828039375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"nummod", "=", "2"}], "}"}], ",", 
   RowBox[{"gr", "=", 
    RowBox[{"PrintRange", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
         ",", 
         RowBox[{"Re", "[", 
          RowBox[{"#", "\[LeftDoubleBracket]", 
           RowBox[{"2", ",", "nummod"}], "\[RightDoubleBracket]"}], "]"}]}], 
        "}"}], "&"}], "/@", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Drop", "[", 
         RowBox[{"linc1", ",", "5"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{"Take", "\[Rule]", 
          RowBox[{"(", 
           RowBox[{"#1", "&"}], ")"}]}], "}"}]}], ")"}]}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.447582777234375*^9, 3.447582785640625*^9}, {
  3.447583060875*^9, 3.447583067203125*^9}, {3.447583134140625*^9, 
  3.4475831345625*^9}, {3.44758344578125*^9, 3.44758344609375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBmIQDQF2DhVLksXP++sfAHMbHB228wuz7Q+E8hlcHMS/
sfmaBsPk3RzuqU88FxkCk/d0MLz1er1LKEze2+FesE8BaxhM3s9hmWx7+TIY
3yHAwf4gF4t+OEx9oAPLpbvWS2D8A0EOwV76DFwRMP0hDis/HlJJhvEdQh1C
7yT+2gjjN4Q5tOW4/vwO4x8IdziWHL/MLBKmP9LBo8fONR/Gd4hyMFp/23YR
jN8Q7ZD5hX3+RRj/QIyDV0nxyt9w/XEORn7+aUpRMP3xDm1aCrJucH6CQ2Sr
3Px0GP9BgsPZTQEKbTB+Q6KDR6GC8GIYXyHJwayt7u8eGP9AkgOrXkfPVRg/
IdnBW9xrxTsYnyHF4av4qhNM0VD+ghSHWaff1orD+A6pDkJRBg7aMP6DVAep
eUfk7WD8hjSHlSox7D4wvkK6Q0fH8/txMP6BdId5wta1uTB+QobD1KinfTUw
PkOmQ4H7zbReIB8A3tKeLQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{50., -15.675},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.447582777640625*^9, 3.447582786078125*^9}, {
   3.447583061625*^9, 3.447583067890625*^9}, 3.447583135984375*^9, 
   3.447583446421875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "\:041d\:0430\:0445\:043e\:0436\:0434\:0435\:043d\:0438\:0435", " ", 
    "\:043f\:0440\:0435\:0434\:0435\:043b\:043e\:0432", " ", "\:043f\:043e", 
    " ", "\:0440\:0430\:0437\:043c\:0435\:0440\:0443", " ", 
    "\:0441\:0435\:0442\:043a\:0438"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ListLimit", "[", 
     RowBox[{"#", ",", 
      RowBox[{"ApproximationReport", "\[Rule]", "None"}]}], "]"}], "&"}], "/@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"First", "/@", 
          RowBox[{"Take", "[", 
           RowBox[{"linc1", ",", 
            RowBox[{"-", 
             RowBox[{"Length", "[", "#", "]"}]}]}], "]"}]}], ",", "#"}], 
        "}"}], "]"}], "&"}], "/@", 
     RowBox[{"Re", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"Last", "/@", 
        RowBox[{"Drop", "[", 
         RowBox[{"linc1", ",", "8"}], "]"}]}], "]"}], "]"}]}], 
    ")"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindRoot", "::", "\<\"cvmit\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Failed to converge to the \
requested accuracy or precision within \\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\
\\!\\(\\*StyleBox[\\!\\(100\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
iterations.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/cvmit\\\", ButtonNote -> \
\\\"FindRoot::cvmit\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.44758341896875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindRoot", "::", "\<\"cvmit\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Failed to converge to the \
requested accuracy or precision within \\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\
\\!\\(\\*StyleBox[\\!\\(100\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
iterations.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/cvmit\\\", ButtonNote -> \
\\\"FindRoot::cvmit\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.447583419125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"303093.2384030333`", ",", 
   RowBox[{"-", "15.682969524289398`"}], ",", 
   RowBox[{"-", "30.046999868738705`"}], ",", 
   RowBox[{"-", "50.21799390461715`"}], ",", 
   RowBox[{"-", "75.24879800163352`"}], ",", 
   RowBox[{"-", "104.4988891572308`"}], ",", 
   RowBox[{"-", "142.08245384340665`"}], ",", 
   RowBox[{"-", "178.5199508722908`"}], ",", 
   RowBox[{"-", "227.0348882681314`"}], ",", 
   RowBox[{"-", "272.280314595075`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.447583419140625*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:041e\:0442 \:043d\:043e\:043c\:0435\:0440\:0430 \:043c\:043e\:0434\
\:044b m", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"n", "=", "50"}], ",", 
     RowBox[{"k", "=", "0.05"}], ",", 
     RowBox[{"R", "=", "10000"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"GetMainIncrement", "[", 
      RowBox[{"n", ",", "0", ",", "k", ",", "R", ",", "2"}], "]"}], ",", 
     RowBox[{"GetMainIncrement", "[", 
      RowBox[{"n", ",", "1", ",", "k", ",", "R", ",", "2"}], "]"}], ",", 
     RowBox[{"GetMainIncrement", "[", 
      RowBox[{"n", ",", "2", ",", "k", ",", "R", ",", "2"}], "]"}], ",", 
     RowBox[{"GetMainIncrement", "[", 
      RowBox[{"n", ",", "3", ",", "k", ",", "R", ",", "2"}], "]"}]}], "}"}]}],
   "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "0.05`", ",", "10000"}], "}"}]], "Print"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "0.05`", ",", "10000"}], "}"}]], "Print"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.00632518677735715`"}], ",", 
   RowBox[{"-", "0.005955650411416191`"}], ",", 
   RowBox[{"-", "0.011642554102577517`"}], ",", 
   RowBox[{"-", "0.015364797976260433`"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:0421\:043f\:0438\:0441\:043a\:0438 \:0438\:043d\:043a\:0440\:0435\:043c\
\:0435\:043d\:0442\:043e\:0432 \:0434\:043b\:044f \:043d\:0435\:0441\:043a\
\:043e\:043b\:044c\:043a\:0438\:0445 \:043c\:043e\:0434 \:0438 \:0440\:0430\
\:0437\:043d\:044b\:0445 \:0441\:0438\:0442\:0443\:0430\:0446\:0438\:0439\
\>", "Subsubsection"],

Cell[CellGroupData[{

Cell["k=0.01; Re=1;m=2", "Text"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "26.40637294268282`"}], ",", 
   RowBox[{"-", "71.10675532335691`"}], ",", 
   RowBox[{"-", "136.01645365894717`"}], ",", 
   RowBox[{"-", "221.65200857058858`"}], ",", 
   RowBox[{"-", "328.64883015364876`"}], ",", 
   RowBox[{"-", "457.85986091868386`"}], ",", 
   RowBox[{"-", "610.1978511339939`"}], ",", 
   RowBox[{"-", "786.9763180530609`"}], ",", 
   RowBox[{"-", "989.3220883679271`"}], ",", 
   RowBox[{"-", "1219.101988463769`"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["k=0.01; Re=1;m=1", "Text"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"196811.13112945855`", ",", 
   RowBox[{"-", "14.694937152210608`"}], ",", 
   RowBox[{"-", "49.37790007105267`"}], ",", 
   RowBox[{"-", "104.21097285780377`"}], ",", 
   RowBox[{"-", "179.64080691703657`"}], ",", 
   RowBox[{"-", "276.2753779086575`"}], ",", 
   RowBox[{"-", "394.9346833844984`"}], ",", 
   RowBox[{"-", "536.6086065948052`"}], ",", 
   RowBox[{"-", "702.5255844311832`"}], ",", 
   RowBox[{"-", "894.0689696082355`"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["k=0.01; Re=1;m=0", "Text"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"420084.9804233064`", ",", 
   RowBox[{"-", "14.67409888681869`"}], ",", 
   RowBox[{"-", "30.47881441843954`"}], ",", 
   RowBox[{"-", "49.22095731363965`"}], ",", 
   RowBox[{"-", "75.74798609396059`"}], ",", 
   RowBox[{"-", "103.47292187777688`"}], ",", 
   RowBox[{"-", "143.63407444195508`"}], ",", 
   RowBox[{"-", "177.5013923967516`"}], ",", 
   RowBox[{"-", "228.6620343764095`"}], ",", 
   RowBox[{"-", "270.915118388417`"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["k=1; Re=1;m=0", "Text"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.4020243021663374`*^6", ",", 
   RowBox[{"-", "15.68294480322186`"}], ",", 
   RowBox[{"-", "30.69775907807272`"}], ",", 
   RowBox[{"-", "50.21745215060195`"}], ",", 
   RowBox[{"-", "76.09550584579632`"}], ",", 
   RowBox[{"-", "104.49091451869683`"}], ",", 
   RowBox[{"-", "143.75906908479934`"}], ",", 
   RowBox[{"-", "178.49399821879254`"}], ",", 
   RowBox[{"-", "229.02857623334833`"}], ",", 
   RowBox[{"-", "272.23168731173513`"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["k=0.1;Re=1;m=0", "Text"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.4022118274956779`*^6", ",", 
   RowBox[{"-", "14.691989080801575`"}], ",", 
   RowBox[{"-", "30.413106233916476`"}], ",", 
   RowBox[{"-", "49.227654046473084`"}], ",", 
   RowBox[{"-", "75.58544037491835`"}], ",", 
   RowBox[{"-", "103.50107628082979`"}], ",", 
   RowBox[{"-", "143.387804733682`"}], ",", 
   RowBox[{"-", "177.50416959082213`"}], ",", 
   RowBox[{"-", "228.50641685917583`"}], ",", 
   RowBox[{"-", "271.2419646555711`"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["k=1;Re=100;m=0", "Text"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"14019.05642788317`", ",", 
   RowBox[{"-", "0.27344743787260156`"}], ",", 
   RowBox[{"-", "0.32063434971785126`"}], ",", 
   RowBox[{"-", "0.4593791391407438`"}], ",", 
   RowBox[{"-", "0.783591988240961`"}], ",", 
   RowBox[{"-", "1.0276043375369603`"}], ",", 
   RowBox[{"-", "1.437681995087824`"}], ",", 
   RowBox[{"-", "1.77405011700475`"}], ",", 
   RowBox[{"-", "2.287938029558565`"}], ",", 
   RowBox[{"-", "2.7148588630351016`"}]}], "}"}]], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:041e\:0442 \:0432\:043e\:043b\:043d\:043e\:0432\:043e\:0433\:043e \:0447\
\:0438\:0441\:043b\:0430 \:0432\:0434\:043e\:043b\:044c \:043a\:0430\:043d\
\:0430\:043b\:0430 k\
\>", "Subsubsection"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"GetMainIncrement", "[", 
    RowBox[{"50", ",", "1", ",", "k", ",", "1000", ",", "2"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", 
     RowBox[{"-", "0.1`"}], ",", "2.3`"}], "}"}]}], "]"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.063492 0.396825 0.603319 3.42435 [
[.2619 .59082 -9 -9 ]
[.2619 .59082 9 0 ]
[.46032 .59082 -3 -9 ]
[.46032 .59082 3 0 ]
[.65873 .59082 -9 -9 ]
[.65873 .59082 9 0 ]
[.85714 .59082 -3 -9 ]
[.85714 .59082 3 0 ]
[.05099 .00406 -36 -4.5 ]
[.05099 .00406 0 4.5 ]
[.05099 .08967 -30 -4.5 ]
[.05099 .08967 0 4.5 ]
[.05099 .17527 -36 -4.5 ]
[.05099 .17527 0 4.5 ]
[.05099 .26088 -24 -4.5 ]
[.05099 .26088 0 4.5 ]
[.05099 .34649 -36 -4.5 ]
[.05099 .34649 0 4.5 ]
[.05099 .4321 -30 -4.5 ]
[.05099 .4321 0 4.5 ]
[.05099 .51771 -36 -4.5 ]
[.05099 .51771 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.2619 .60332 m
.2619 .60957 L
s
[(0.5)] .2619 .59082 0 1 Mshowa
.46032 .60332 m
.46032 .60957 L
s
[(1)] .46032 .59082 0 1 Mshowa
.65873 .60332 m
.65873 .60957 L
s
[(1.5)] .65873 .59082 0 1 Mshowa
.85714 .60332 m
.85714 .60957 L
s
[(2)] .85714 .59082 0 1 Mshowa
.125 Mabswid
.10317 .60332 m
.10317 .60707 L
s
.14286 .60332 m
.14286 .60707 L
s
.18254 .60332 m
.18254 .60707 L
s
.22222 .60332 m
.22222 .60707 L
s
.30159 .60332 m
.30159 .60707 L
s
.34127 .60332 m
.34127 .60707 L
s
.38095 .60332 m
.38095 .60707 L
s
.42063 .60332 m
.42063 .60707 L
s
.5 .60332 m
.5 .60707 L
s
.53968 .60332 m
.53968 .60707 L
s
.57937 .60332 m
.57937 .60707 L
s
.61905 .60332 m
.61905 .60707 L
s
.69841 .60332 m
.69841 .60707 L
s
.7381 .60332 m
.7381 .60707 L
s
.77778 .60332 m
.77778 .60707 L
s
.81746 .60332 m
.81746 .60707 L
s
.02381 .60332 m
.02381 .60707 L
s
.89683 .60332 m
.89683 .60707 L
s
.93651 .60332 m
.93651 .60707 L
s
.97619 .60332 m
.97619 .60707 L
s
.25 Mabswid
0 .60332 m
1 .60332 L
s
.06349 .00406 m
.06974 .00406 L
s
[(-0.175)] .05099 .00406 1 0 Mshowa
.06349 .08967 m
.06974 .08967 L
s
[(-0.15)] .05099 .08967 1 0 Mshowa
.06349 .17527 m
.06974 .17527 L
s
[(-0.125)] .05099 .17527 1 0 Mshowa
.06349 .26088 m
.06974 .26088 L
s
[(-0.1)] .05099 .26088 1 0 Mshowa
.06349 .34649 m
.06974 .34649 L
s
[(-0.075)] .05099 .34649 1 0 Mshowa
.06349 .4321 m
.06974 .4321 L
s
[(-0.05)] .05099 .4321 1 0 Mshowa
.06349 .51771 m
.06974 .51771 L
s
[(-0.025)] .05099 .51771 1 0 Mshowa
.125 Mabswid
.06349 .02118 m
.06724 .02118 L
s
.06349 .0383 m
.06724 .0383 L
s
.06349 .05542 m
.06724 .05542 L
s
.06349 .07254 m
.06724 .07254 L
s
.06349 .10679 m
.06724 .10679 L
s
.06349 .12391 m
.06724 .12391 L
s
.06349 .14103 m
.06724 .14103 L
s
.06349 .15815 m
.06724 .15815 L
s
.06349 .1924 m
.06724 .1924 L
s
.06349 .20952 m
.06724 .20952 L
s
.06349 .22664 m
.06724 .22664 L
s
.06349 .24376 m
.06724 .24376 L
s
.06349 .27801 m
.06724 .27801 L
s
.06349 .29513 m
.06724 .29513 L
s
.06349 .31225 m
.06724 .31225 L
s
.06349 .32937 m
.06724 .32937 L
s
.06349 .36361 m
.06724 .36361 L
s
.06349 .38074 m
.06724 .38074 L
s
.06349 .39786 m
.06724 .39786 L
s
.06349 .41498 m
.06724 .41498 L
s
.06349 .44922 m
.06724 .44922 L
s
.06349 .46634 m
.06724 .46634 L
s
.06349 .48347 m
.06724 .48347 L
s
.06349 .50059 m
.06724 .50059 L
s
.06349 .53483 m
.06724 .53483 L
s
.06349 .55195 m
.06724 .55195 L
s
.06349 .56908 m
.06724 .56908 L
s
.06349 .5862 m
.06724 .5862 L
s
.25 Mabswid
.06349 0 m
.06349 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .48809 m
.02605 .48958 L
.02846 .49129 L
.03053 .49303 L
.03163 .49413 L
.03279 .49556 L
.03344 .49656 L
.03416 .4979 L
.03543 .50129 L
.03672 .50645 L
.03793 .51196 L
.04017 .52097 L
.04262 .52867 L
.04517 .53502 L
.04761 .53988 L
.05 .54376 L
.05217 .54661 L
.05475 .54928 L
.05607 .55036 L
.0575 .55132 L
.05882 .55202 L
.06005 .55251 L
.06121 .55284 L
.06244 .55304 L
.06309 .55308 L
.06379 .55309 L
.06507 .55297 L
.06631 .5527 L
.06746 .55232 L
.0687 .55176 L
.07006 .55095 L
.07283 .54873 L
.07524 .5461 L
.07784 .54247 L
.08253 .53337 L
.08762 .51795 L
.09042 .50574 L
.09109 .50296 L
.09179 .50052 L
.09306 .49742 L
.09378 .49618 L
.09456 .49507 L
.09619 .49328 L
.09903 .49092 L
.10458 .48717 L
.12462 .46817 L
.13028 .4601 L
.13565 .45407 L
.13818 .45109 L
.14087 .44845 L
Mistroke
.14342 .44665 L
.14572 .44516 L
.14802 .44373 L
.14924 .44298 L
.15051 .44219 L
.15164 .44149 L
.15286 .44255 L
.15502 .44505 L
.16027 .44994 L
.16517 .45317 L
.16788 .45447 L
.17045 .45539 L
.17275 .45599 L
.17405 .45622 L
.17526 .45638 L
.17654 .45649 L
.17775 .45653 L
.17844 .45653 L
.17907 .45652 L
.17977 .45648 L
.1805 .45643 L
.18117 .45636 L
.18188 .45627 L
.18316 .45607 L
.18468 .45575 L
.18606 .45539 L
.19092 .45362 L
.19607 .45097 L
.20528 .44469 L
.21532 .43748 L
.21821 .4358 L
.22095 .43447 L
.22345 .4335 L
.22609 .43268 L
.23097 .43161 L
.23548 .43088 L
.24075 .43008 L
.24571 .42917 L
.2499 .42819 L
.25441 .42686 L
.26403 .42295 L
.27359 .4175 L
.28405 .40971 L
.30514 .38887 L
.32637 .36498 L
.33641 .35534 L
.34567 .34831 L
.35529 .34278 L
.36573 .33829 L
.38468 .33223 L
Mistroke
.42405 .32068 L
.46191 .3057 L
.50222 .28336 L
.54101 .25484 L
.58225 .21668 L
.62198 .17265 L
.63231 .16015 L
.64203 .14803 L
.64627 .14264 L
.6473 .14132 L
.64841 .13997 L
.64962 .13946 L
.65076 .13899 L
.65567 .13694 L
.66019 .13505 L
.67988 .12693 L
.70086 .11839 L
.74224 .10189 L
.78211 .08637 L
.82045 .07175 L
.86126 .05648 L
.90054 .04201 L
.93831 .0283 L
.97619 .01472 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 ImageSize->{288, 177.875},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWmtsFUUUnt5XW9ryxoISKD4KofSBtAUlaYiPgsEalKAEH6E2aGswNrQi
anFFRCsiL4FIRKMSEVFUREQENRh+kPiKhmisyENRRIlGoyQa43X3u3fvnDk7
s3e37S/jj7v9cr5zvjk7c2Z2drYNje3N825vbG9paiyZuqCxtbmlqa2k/o4F
timaI0ROsxDiSH9h4w4RPSZGJq1ki5UUoqd/c61kTIi4lYzgGsdVRIWwks5f
sDaqc3wThImoOAKljCVu9sxg+zfZT7XAoJer5kf1ahw9O2FTk1QyYcC2ZFRk
xIIkx3xialQYJefW4inshIj8EDr5yDvG2GxqqeHvq0YlhNMLrBTsXxnGOc+J
G68yY9B4nzQTQf9dAOkijfcoeA/QMCPADNYwwyFbrGHOBjNMaXsodM7ReA+B
ywgNMxAxJRqmH5jzNEwB7rFUw+QhZqySVQK2co13BEyVjhFiAjf/De8abv4T
5kncfAbmyTKTP3Ct436/wm+KY+7nWRSinrr+Ge6XOu6sfHzWBdPEpPP4NKLq
/YT5nNHJnEJ+09JTJhFsUWBiNjyJbKYHzcbbTycg0xBCQJvNccjM8JNJrQCm
pfIobmSmHN6+aqtsuh+G2CxeJF1QmS2L6Utc53C/z2G+gZsPwXwTN38G81xu
/gQ53MzNH8F7nszhQ1xv5X4HEd7CzQdw9/O5+X2ItHLzfoJbZZPvQbuNe79D
cDsn9xF8ZyhyL8ELOfk2wXfJDPdqzBnDHoIXcfItgu+2tHuECK4xT7HvJvge
K9SWgT+tooZIan+T4Hv9mjPNsHyDfRfBHVbwTQV9/Oap2jZ8g1gWB03Xux2j
UTsJvi+opMmHDsfrBFt+wnLfQUcvZpDdQfD9srbYWhTV7UVfI3iJrHNqfoCX
8isELw1Fbif4QU6+TPAyTr5E8EMyT2p+mMe8SHAnJ7cS/AgnXyB4OSe3EPwo
J58neIXMk5of4zGbCV7JyecIXsXJZwlezclnCF4jU6HmtTzmaYIf5+RTBK9z
yGLf15xNBK933M8yFLv/m86TBG/wkzHN742Q32ilHvIB9yxxzJcnVJnwbW9A
25u6E7qedaVRILVW0O5bxwYtPVB9DS2tzdSFMtxrWC2l62c1rpu590pW0Aq5
AjFbuHk5zFu5uRPmbbLJTkJu497L4LKdm5fC/Co3L4F5BzdbMO/k5sUw75KZ
dOC6m/stwhDs4eaF8N7HzW3wfpebW2Hez83zMXYHZA63we8g97sF5g8s79aC
Pd28z7smhH5sZd1a8BdhImmK0vrMRYOf+jWYF0DG9JZyI+QPWf5bDFML9Ca9
ZxjXoyO+6E7qrPfYIMwhuFvyzpQ2nUzMRtZdYWRjaezZhVDd6wjukqVXiGvU
cOhxLcFf8TKeRfBhWfTU/DWPmUnwEU5eQ/BRTl5N8DFOziD4eBAyIhTzNzzm
KoK/5WQDwSc4eSXB33FyOsHfy1So+SSPuYLgHzg5jeBTnJxK8I+crCf4J05e
TvBpmedluP7CvS8h2ENOQcxvlvdYJaZ7g6oD+7uV9ViFL3DKJNAtNRejrTN+
yn7zVSdZC8m/rKxnLAGFo+g6ew7+EybLmDvjWVdWuudusTBqpvWjguDe0hyG
DAeqynFZKoVukbBlaSjiMBS2wXGmAglZsMWeUilwOyWfF+oQw7iwY2PfuIT7
Mpj6alDIfQcT3Ae3lcTxquo1SG1xJOdZh5XI+x2kZzK2ASo/ivP9Vf5czrOe
9hwJF7m96zkSLlQjS2XOjBntMOer/aTFSRy7w9dWoXvzPDeLMocvNRRmrqrl
+kbUEk24Wji2Hq3Gs3ch+zdO46Xdori+Ywy8zte7WYwazqF00eH2i5nl1Jlk
uXL+Yg6bdnnse0m5X7N+a0QeTSCepYFu7BspzuQnRPpVsid3oesV7y6+N1rQ
bvCFWpAxtZ2KMO0oBaAlEllaylXX8KjhAyuNq3Tixhp0db5lKh8R3KtK46W9
f5MvrUv7io9R43xq1/UpRzZKh9mXaudvRerxhUeoEPJja5X76bXWYqtntWfm
16Ira9z5n7FXw1LJBSaYZ4LPy2INwRPVUfGJGs96JHAyRQGapk+gCwn2fDvs
rUaojnsnEfSzVj4fozDJIJz6XkotFUHzpg+li8zyWh/PJ9cgjUxENaauvNN8
h7fanfdx9VZZpnF0YlT/2dfzcZfYIvo5kiUqkG24lbSvDc6kDLIF6Qku+A/p
Y8f9f4eF7LCeFGoy5L85iZx/AVd8SKk=\
\>"],
 ImageRangeCache->{{{0, 359}, {221.313, 0}} -> {-0.374252, -0.1855, \
0.00952043, 0.00110326}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%71", ",", "%68"}], "]"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.103401 0.795919 0.603319 5.66702 [
[.26259 .59082 -9 -9 ]
[.26259 .59082 9 0 ]
[.42177 .59082 -9 -9 ]
[.42177 .59082 9 0 ]
[.58095 .59082 -9 -9 ]
[.58095 .59082 9 0 ]
[.74014 .59082 -9 -9 ]
[.74014 .59082 9 0 ]
[.89932 .59082 -3 -9 ]
[.89932 .59082 3 0 ]
[.0909 .03662 -24 -4.5 ]
[.0909 .03662 0 4.5 ]
[.0909 .14996 -30 -4.5 ]
[.0909 .14996 0 4.5 ]
[.0909 .2633 -30 -4.5 ]
[.0909 .2633 0 4.5 ]
[.0909 .37664 -30 -4.5 ]
[.0909 .37664 0 4.5 ]
[.0909 .48998 -30 -4.5 ]
[.0909 .48998 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.26259 .60332 m
.26259 .60957 L
s
[(0.2)] .26259 .59082 0 1 Mshowa
.42177 .60332 m
.42177 .60957 L
s
[(0.4)] .42177 .59082 0 1 Mshowa
.58095 .60332 m
.58095 .60957 L
s
[(0.6)] .58095 .59082 0 1 Mshowa
.74014 .60332 m
.74014 .60957 L
s
[(0.8)] .74014 .59082 0 1 Mshowa
.89932 .60332 m
.89932 .60957 L
s
[(1)] .89932 .59082 0 1 Mshowa
.125 Mabswid
.1432 .60332 m
.1432 .60707 L
s
.18299 .60332 m
.18299 .60707 L
s
.22279 .60332 m
.22279 .60707 L
s
.30238 .60332 m
.30238 .60707 L
s
.34218 .60332 m
.34218 .60707 L
s
.38197 .60332 m
.38197 .60707 L
s
.46157 .60332 m
.46157 .60707 L
s
.50136 .60332 m
.50136 .60707 L
s
.54116 .60332 m
.54116 .60707 L
s
.62075 .60332 m
.62075 .60707 L
s
.66054 .60332 m
.66054 .60707 L
s
.70034 .60332 m
.70034 .60707 L
s
.77993 .60332 m
.77993 .60707 L
s
.81973 .60332 m
.81973 .60707 L
s
.85952 .60332 m
.85952 .60707 L
s
.06361 .60332 m
.06361 .60707 L
s
.02381 .60332 m
.02381 .60707 L
s
.93912 .60332 m
.93912 .60707 L
s
.97891 .60332 m
.97891 .60707 L
s
.25 Mabswid
0 .60332 m
1 .60332 L
s
.1034 .03662 m
.10965 .03662 L
s
[(-0.1)] .0909 .03662 1 0 Mshowa
.1034 .14996 m
.10965 .14996 L
s
[(-0.08)] .0909 .14996 1 0 Mshowa
.1034 .2633 m
.10965 .2633 L
s
[(-0.06)] .0909 .2633 1 0 Mshowa
.1034 .37664 m
.10965 .37664 L
s
[(-0.04)] .0909 .37664 1 0 Mshowa
.1034 .48998 m
.10965 .48998 L
s
[(-0.02)] .0909 .48998 1 0 Mshowa
.125 Mabswid
.1034 .06495 m
.10715 .06495 L
s
.1034 .09329 m
.10715 .09329 L
s
.1034 .12162 m
.10715 .12162 L
s
.1034 .17829 m
.10715 .17829 L
s
.1034 .20663 m
.10715 .20663 L
s
.1034 .23496 m
.10715 .23496 L
s
.1034 .29163 m
.10715 .29163 L
s
.1034 .31997 m
.10715 .31997 L
s
.1034 .3483 m
.10715 .3483 L
s
.1034 .40497 m
.10715 .40497 L
s
.1034 .43331 m
.10715 .43331 L
s
.1034 .46164 m
.10715 .46164 L
s
.1034 .51831 m
.10715 .51831 L
s
.1034 .54665 m
.10715 .54665 L
s
.1034 .57498 m
.10715 .57498 L
s
.1034 .00828 m
.10715 .00828 L
s
.25 Mabswid
.1034 0 m
.1034 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .41262 m
.02831 .41509 L
.03313 .41793 L
.03729 .42079 L
.03949 .42261 L
.04181 .42498 L
.04313 .42663 L
.04457 .42887 L
.04712 .43447 L
.04971 .443 L
.05214 .45213 L
.05663 .46704 L
.06153 .47978 L
.06666 .49029 L
.07154 .49833 L
.07634 .50475 L
.08069 .50947 L
.08586 .51389 L
.08851 .51567 L
.09138 .51726 L
.09404 .51842 L
.09649 .51923 L
.09883 .51978 L
.1013 .52011 L
.10259 .52018 L
.104 .52019 L
.10656 .52 L
.10905 .51955 L
.11136 .51892 L
.11384 .51799 L
.11658 .51666 L
.12214 .51297 L
.12697 .50862 L
.13217 .50262 L
.14159 .48756 L
.1518 .46204 L
.15741 .44183 L
.15875 .43723 L
.16017 .43319 L
.16271 .42807 L
.16414 .42601 L
.16572 .42418 L
.16898 .42121 L
.17468 .4173 L
.18581 .41111 L
.22601 .37965 L
.23735 .36631 L
.24812 .35632 L
.2532 .35139 L
.25861 .34702 L
Mistroke
.26371 .34405 L
.26833 .34158 L
.27295 .33921 L
.27538 .33798 L
.27794 .33667 L
.28019 .33551 L
.28266 .33726 L
.28699 .34139 L
.29752 .34949 L
.30733 .35484 L
.31278 .35699 L
.31793 .35852 L
.32255 .35949 L
.32516 .35989 L
.32757 .36015 L
.33015 .36033 L
.33257 .3604 L
.33396 .3604 L
.33523 .36038 L
.33662 .36032 L
.33808 .36023 L
.33942 .36012 L
.34085 .35997 L
.34341 .35963 L
.34647 .3591 L
.34924 .3585 L
.35899 .35558 L
.36931 .3512 L
.38779 .34081 L
.40793 .32887 L
.41373 .32609 L
.41923 .3239 L
.42422 .32228 L
.42953 .32093 L
.43931 .31915 L
.44837 .31795 L
.45894 .31663 L
.46887 .31512 L
.47727 .3135 L
.48634 .3113 L
.50563 .30482 L
.5248 .2958 L
.54578 .28292 L
.58808 .24842 L
.63065 .20888 L
.65079 .19293 L
.66937 .1813 L
.68867 .17215 L
.7096 .16472 L
.74762 .15469 L
Mistroke
.82659 .13557 L
.90251 .11078 L
.98336 .07381 L
Mfstroke
.98336 .07381 m
1 .06372 L
s
.02381 .45376 m
.03672 .47686 L
.04345 .48613 L
.05081 .49463 L
.06404 .50634 L
.07058 .51068 L
.07758 .51437 L
.08099 .51583 L
.0847 .51717 L
.08791 .51813 L
.09143 .51897 L
.09308 .51929 L
.09486 .51958 L
.09527 .60332 L
.0955 .60332 L
.09572 .60332 L
.09611 .60332 L
.09653 .5198 L
.09695 .60332 L
.09734 .60332 L
.09769 .60332 L
.09807 .60332 L
.0985 .60332 L
.09891 .51999 L
.09915 .60332 L
.09936 .52007 L
.09961 .52008 L
.09985 .5201 L
.10007 .52011 L
.10031 .60332 L
.10075 .52022 L
.10099 .52032 L
.10121 .52017 L
.10146 .52044 L
.10173 .60332 L
.10214 .60332 L
.10237 .52138 L
.10258 .60332 L
.10302 .52043 L
.10326 .5182 L
.10348 .60332 L
.10388 .52153 L
.10431 .52003 L
.10472 .60332 L
.1051 .52064 L
.10551 .52017 L
.10591 .60332 L
.10627 .52014 L
.10666 .52019 L
.10708 .60332 L
Mistroke
.10732 .60332 L
.10753 .52006 L
.10794 .52004 L
.10834 .60332 L
.10871 .51997 L
.1091 .60332 L
.10943 .51987 L
.10979 .60332 L
.11019 .51981 L
.11061 .51974 L
.11101 .60332 L
.11137 .60332 L
.1118 .60332 L
.11201 .51957 L
.11225 .51953 L
.11307 .5194 L
.11491 .51906 L
.11827 .51829 L
.12475 .51624 L
.13172 .51316 L
.13844 .50931 L
.14549 .50426 L
.15825 .49219 L
.17183 .47417 L
.1849 .44964 L
.19157 .43421 L
.19508 .42662 L
.19879 .42023 L
.20211 .41592 L
.20575 .4122 L
.20735 .41079 L
.20824 .41006 L
.20867 .4097 L
.20907 .40938 L
.20945 .40909 L
.20985 .409 L
.21069 .4088 L
.21217 .40844 L
.22478 .40509 L
.23821 .40085 L
.25113 .39604 L
.26487 .39006 L
.27811 .38338 L
.29083 .37602 L
.30438 .36705 L
.31742 .35719 L
.33128 .34521 L
.34218 .33454 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{570.125, 351.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnAlsXcUVhq+f/Z7t2H5eYsdL4i1e4jghwQGTlSyY2Akx2UgwSezETkhi
N4QEx9Cw9Yqi0qotFaoQQm1RN6WtqEqlSJSuonsplSjdFHUTtEIIUVSqLtAF
+vreuZ7rc2b+Gb/n2E3URgphznz/OTN3mztz5r5cPzQ2fPj40NjIoaGGntGh
k8Mjh041dJ8YTVZlZ3le5BnPy3qqxEuW7/GyX/Tqr/MTXrbn+Ynk/5P/Jf/c
myx5F6Y6WXvB+/D/W73IT+R4XtRPROjvqOfNwsJ2Vh2R5aRrLqvJMEDB5K7z
/UTM01u1BYiq++nu82x1Blzz6XYvdF2K+OTRL56753+nOnmzJEfKLF8bk+6k
uzuCfU5rVxlI7lAPFoJj4aMD4ClWY5HcRv6zMDxBsBDD4wTjGB4jWILhCMEy
DI/QmSvH8GbyrMTwIMFqDAcJzsVwP8FaDPdRh+ox3EOe8zHsI9iM4W6CrRju
pDbb9DtpO/kswj5bCV6GYS/BpRhupiY6MOwhzysx3EjwKgy7CK7AcAPBVRiu
pQ6twXANea7DcBXBDRiuINiFYSe1uRHDZQQ3YbiU4BYMFxPciuFCgjswbCW4
C8Mmgn0YNhDcq989tVQewD41BAcxrCR4CMNygkcwLCU4gmGc4C0YFhA8gWEe
wVEMowRvxzBC8DSAb9Or825A/kHEB+RvRO4H5E80iXgvIK+RzwcBeYXIQ4C8
ROThFGmSk61kOYf+LpAeL1D7j/rBzMcx68rRaM54WYA8GfzX1OJjruB5Uwh7
jsJ+MqWqcc7W0g0eTOOep8KZKfQWndjnqPLx6T72ZynsE9Md9vsU9uzEjVNo
v2W+TZVfArff0/TQfBWQrxP5BiBfpmjfBORJ8vkuIGeJ/ACQJyjas4B8nnye
A+RzRH4CyBkiPwfkU0TOAfJxIr8C5GNEfgvIR+gJexGQR4n8HpBHiLzk88H7
Yap7Gag/TOQVQB4i8iogHyLyGiAPMhPxD5Dn64C8n5mIv488/wzIA0T+Csh7
mIn4/eT5JiDvZibi9zHz74D7FPlfgLyLmYjfy8y3AL+HmW8Dfhe1nCxkAXin
NJHktDTViiK4je5QwdFa4nZpIsmYNGNAckqaaNExKs08ILlNmvlAclKaaAFz
QpoFQHKrNNFK5xZ10ooBPCZNJHmHNNGSaESapUAyLE20djoqzdlAckSaaJF1
WJoVQHKzNOcAySFpogXbQWlWiTt1SEK0phuUZg2QHJAmWvwNqKtbB2C/NJFk
nzTrgWSvNBuAZI80G4HkJmmiFWefNJuA5EZpoqXpbmm2AMkuaaI17E51XhcC
uEOaSLJdmu1Ask2aaFW8VZqLfTh/DtYL2mSoVx0ArZkzm0JHg3LK0ctmTJub
bZGmsyF97pdmE9r5uNzPeGrtaCiYXffIJjoyOQrHNHuTNJdN9eTEZZxudVk7
MwmIylp/N0qzc+JWC2bcMbrJZknVtdJEeZQuaS4HkmukiRIu69VhrwZwnTSR
ZK00UWbmatPUJWvMoLpkleooSuGslCaSrDBPjS65SjWBcj1XKtgD4BXSRJIO
5X8dgEsV7PX5y26JVPUCz8XKcxuA7QqiRFKbgjcA2KrgbgCbFURZpkbV+T0A
1ivPfgBrFdwPYI0KOwhglfJEiagK5XkYwDIFhwEsUWGPAVighrnjAEZpJE0E
U1oBk1P7XCJGoukNRXydvK7IAzp5VXXiwYn75mUaVRK0ApTq3yn1Izp5QR3p
R3XyG3WCHtPJLxX5hE7OqWif1skvFDmjk58p8lmd/FSeWoM/rzwf18lnWLlV
RjG0d7FyGyu3qOhf0D1Say56TSXfJd4CBsLH44u6yzuNSUGT9ONdNLzH6ITz
vdBGGSlo9azuN0qEv5UaWHm+bNXwPhlu5qiaOtmDoNUndT++xioOd1FYDwK/
p3S/YPOonNVUs3I4gHxF9zsWbgCpmkrZ58DvaxMPCl9/BSNIBf0dtmEkr4aN
4yhl5XD8elr3O2r0pITVzFN+39L9+KqMX2u+xTtXeX9H9+YLtia1mRdsdQUP
7vd0D75+azV23quU3zO6H1/ULaThh8+HKtSA9CPdj6/0lpCqXB3Nj3XtkNTy
mVeMZur55Gck9QYtfvlqMDQSdwdY+TLVnz/oqv1SxZ8hQzvAyuEL+4+6ql+q
eERDu8+uNZJsfJm5SLVuJNz2SBWPSFpzdWROXG+yx/iLn/FiSZV5fb6ltYXq
uN5wtWObvdta6JMt8OOhdjJbMKlyzBv/kGSXPfybmRwGX9VELIfCF+/hzO+f
090KP6IFqpW3pnJJwrInX103sHI4Sf33xA0arqm0V94Oqgn7lABJ0u0yNL8c
SM6zDC0sbo4u5LmGZiY0sqRBZoHHMlKgPDPQxIRGlpOXwyl5AiQyN7NyA4to
ZCyD7f5GJjHSkd2sXM+ERsaRr4lrWe+MpGKXeuOGkipdwhe51epVkwBJvQ2s
XMki1uvC9axcwYRGam2tmjWEEpUUS1bwZW8Zk7TpUfjit4QJjbzValaOM+ES
XbiS+lXETobxCQdfDhewS9WpC5dLofZUkLyU/LmwU3VAk1MeYzbBTgavoJpi
LA8mZXyF3WFMoQI5pUAqCXYwGCyuSw05pUOqw89f0CTBbCOVaaCPhdDbd3H4
+ZJ0WuVy4i9Ki+s8i7zd6UrpmtrwwyD0ppmNneos8janK+V+6i1yvkAqx64N
FvkCZ6tXu1xbna2Sa6NF3upsdS1wzaax29EeOfEXYYulbLa3zuXa7GyVXG3r
zGZnq+tnyLXJ2WFytcmbnK1umCHX+U7Xay6ca4tFzsvmyNDlcm10tpq2q9nq
tefpykfw0jTCmCM+5XXLLBLu2uDszZTCmL1JzZbEGS5JI4z5RuqZxjDlFklD
+KWrPcCmSQKE5TTCVLDq4jTCmFOHzXqYEotrnbM3FGaOpSVbGLM3lPPn+ai4
JUytM8wWPUyxpQdphKmy9MYWJm6E6dXDFFtc5zl7Q2GqLS3Zwpi9uV4PU2xx
nesMQ9/j1lgkGYaxSeZayuZ8eVu6YWqcYVIrW9H5oqmHqbVIaixl8+cotBlV
Z5Fw12pnmJ16mCKLKy+bKxja/Uo9gnzLOdj4D76FzKZcDXescvaLAoYDlWfk
tZLT8eAnG1QR4PCDTb6Rnm9p0jwG+hS80UiiRX3tU1Db9nelM/puP0x1Uf88
7Zhi9mPlUaNyPLa0Y8sT5RpHx08VT0LOcTZy43gjEXmuzfC2nKD7GPrEMWiZ
MutnurarztuaZbSVyn+OZ72C05tj/P6r3BmAdmhbjVRZuaWcbwSgHxK0WSSz
LWUzTCqZLdaZeRbXMmcY2lNut4Qps5TzjDD0M4ggT24LUOoMQNvXfEsgZnEt
cYY5kAqzxBKGu/IXXS5L5aR2V0RmI2bkTeIGDVxTG0He5cY5KLKUY0bnKcAy
i6TQUo6yHqS2zMbzQjZXfs/mMFf6TUmn2qiAcv4sZDNX2uhfbowFXM7vuwhz
pc8AVqqBJSI3RoLLEmE5O/r5ymqqiBjnOYfVB3L6jmCtn8jzJmCugqmvb1OZ
0riqSG1Ne8k1U9GliksVF0PFINs8zKF31QCryaU7up/VxNQP0rQtx8Pk2z0R
+IB8GrUnU5/z9DvV/Anc61RGtbj7Ju0Fony3PY1D4gPPgEVTmMYh5KfZedvO
XIbd5sOg7fzn0eTS1pH/cof5e8LVpXD2ZjuqfLpl3fRoZn1L9/qm07dJb6Zp
Op95fnoPYXijpKNx30yw/uDEL3X5oFRI1fvVv44QUcNOnA1Kha5rdbGMsedX
Efz54fg/UsBnqXz5bFud28ozob8Y+qCnqy6dsEsnbIZPGN+Tv/U8yt16sGAQ
uFD/VoqX9R+ye8T/\
\>"],
 ImageRangeCache->{{{0, 711.625}, {438.875, 0}} -> {-0.131246, -0.106461, \
0.00221162, 0.000310616}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"!", 
     RowBox[{"NumericQ", "[", "E", "]"}]}], ",", 
    RowBox[{"Remove", "[", "E", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cutout", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ltest", "=", 
   RowBox[{"Last", "/@", 
    RowBox[{"Drop", "[", 
     RowBox[{"linc", ",", "cutout"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"lna\[Lambda]", ",", "\[Lambda]"}], "}"}], "=", 
   RowBox[{"CoefficientList", "[", 
    RowBox[{
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"-", 
         RowBox[{"dif", "[", "ltest", "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}], ",", "x"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a", "=", 
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["E", "lna\[Lambda]"]}], "/", "\[Lambda]"}]}], ";", 
  RowBox[{"Print", "[", 
   RowBox[{"{", 
    RowBox[{"a", ",", "\[Lambda]"}], "}"}], "]"}], ";"}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.005702497407196759`"}], "-", 
    RowBox[{"4.8150693239200086`*^-17", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.00125944646675499`"}], "+", 
    RowBox[{"9.670121510415402`*^-18", " ", "\[ImaginaryI]"}]}]}], 
  "}"}]], "Print"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"ltest", "-", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"a", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[Lambda]", " ", "x"}]]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", 
       RowBox[{"Length", "[", "ltest", "]"}]}], "}"}]}], "]"}]}], 
  "]"}]], "Input"]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
Evaluator->"auxilliary",
CellGrouping->Manual,
WindowSize->{1234, 620},
WindowMargins->{{14, Automatic}, {Automatic, 7}},
ShowSelection->True,
Magnification->1.25,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3447603624-5243916"->{
  Cell[68148, 2372, 1279, 34, 27, "Print",
   CellTags->"Info3447603624-5243916"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3447603624-5243916", 199967, 7728}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 82, 2, 52, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[675, 27, 173, 2, 46, "Subsection"],
Cell[851, 31, 175, 6, 54, "Input",
 InitializationCell->True],
Cell[1029, 39, 12636, 316, 277, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[13690, 359, 407, 8, 35, "Input"],
Cell[14100, 369, 9008, 253, 664, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[23145, 627, 477, 10, 27, "Input"],
Cell[23625, 639, 14068, 373, 745, "Input",
 InitializationCell->True]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[37742, 1018, 196, 2, 35, "Subsection"],
Cell[CellGroupData[{
Cell[37963, 1024, 435, 10, 35, "Input"],
Cell[38401, 1036, 593, 17, 58, "Input"],
Cell[38997, 1055, 2190, 58, 190, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41224, 1118, 424, 10, 35, "Input"],
Cell[41651, 1130, 505, 14, 75, "Input",
 InitializationCell->True],
Cell[42159, 1146, 2009, 54, 185, "Input",
 InitializationCell->True]
}, Open  ]],
Cell[44183, 1203, 742, 21, 75, "Input",
 InitializationCell->True],
Cell[44928, 1226, 352, 11, 35, "Input"],
Cell[CellGroupData[{
Cell[45305, 1241, 125, 2, 35, "Input"],
Cell[45433, 1245, 85, 2, 27, "Print"],
Cell[45521, 1249, 63, 1, 35, "Output"]
}, Open  ]],
Cell[45599, 1253, 328, 10, 39, "Input"],
Cell[45930, 1265, 1812, 46, 102, "Input"],
Cell[CellGroupData[{
Cell[47767, 1315, 1978, 49, 124, "Input"],
Cell[49748, 1366, 344, 8, 46, "Print"],
Cell[50095, 1376, 17879, 986, 363, 14290, 924, "GraphicsData", "PostScript", \
"Graphics"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[68023, 2368, 122, 2, 27, "Input"],
Cell[68148, 2372, 1279, 34, 27, "Print",
 CellTags->"Info3447603624-5243916"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69464, 2411, 909, 21, 35, "Input"],
Cell[70376, 2434, 334, 5, 35, "Output"]
}, Open  ]],
Cell[70725, 2442, 544, 13, 35, "Input"],
Cell[71272, 2457, 320, 9, 35, "Input"],
Cell[71595, 2468, 436, 10, 52, "Output"],
Cell[CellGroupData[{
Cell[72056, 2482, 1229, 23, 35, "Input"],
Cell[73288, 2507, 1568, 28, 321, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74893, 2540, 1831, 50, 119, "Input"],
Cell[76727, 2592, 509, 9, 27, "Print"],
Cell[77239, 2603, 12481, 213, 260, "Output"]
}, Closed]],
Cell[89735, 2819, 273, 8, 27, "Input"],
Cell[CellGroupData[{
Cell[90033, 2831, 216, 4, 46, "Subsection"],
Cell[CellGroupData[{
Cell[90274, 2839, 1194, 31, 97, "Input"],
Cell[91471, 2872, 701, 14, 27, "Print"],
Cell[92175, 2888, 449, 8, 52, "Output"],
Cell[92627, 2898, 3914, 74, 163, "Output"],
Cell[96544, 2974, 3906, 74, 172, "Output"]
}, Open  ]],
Cell[100465, 3051, 2339, 61, 256, "Input"],
Cell[CellGroupData[{
Cell[102829, 3116, 1300, 38, 126, "Input"],
Cell[104132, 3156, 432, 10, 27, "Print"],
Cell[104567, 3168, 3241, 58, 461, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[107857, 3232, 222, 4, 46, "Subsection"],
Cell[CellGroupData[{
Cell[108104, 3240, 134, 1, 40, "Subsubsection"],
Cell[108241, 3243, 283, 8, 43, "Input"],
Cell[108527, 3253, 158, 5, 43, "Input"],
Cell[108688, 3260, 8714, 486, 291, 6624, 448, "GraphicsData", "PostScript", \
"Graphics"],
Cell[117405, 3748, 158, 5, 43, "Input"],
Cell[117566, 3755, 6204, 339, 291, 4550, 308, "GraphicsData", "PostScript", \
"Graphics"],
Cell[123773, 4096, 156, 5, 43, "Input"],
Cell[123932, 4103, 4990, 273, 291, 3499, 245, "GraphicsData", "PostScript", \
"Graphics"],
Cell[128925, 4378, 155, 5, 43, "Input"],
Cell[129083, 4385, 6162, 340, 291, 4326, 306, "GraphicsData", "PostScript", \
"Graphics"],
Cell[135248, 4727, 379, 12, 43, "Input"],
Cell[CellGroupData[{
Cell[135652, 4743, 740, 22, 105, "Input"],
Cell[136395, 4767, 58, 1, 33, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136490, 4773, 684, 10, 68, "Text"],
Cell[137177, 4785, 413, 12, 48, "Input"],
Cell[137593, 4799, 6862, 370, 291, 4601, 329, "GraphicsData", "PostScript", \
"Graphics"],
Cell[144458, 5171, 412, 12, 48, "Input"],
Cell[144873, 5185, 6812, 355, 291, 4401, 312, "GraphicsData", "PostScript", \
"Graphics"],
Cell[151688, 5542, 413, 12, 48, "Input"],
Cell[152104, 5556, 7167, 389, 291, 4870, 348, "GraphicsData", "PostScript", \
"Graphics"],
Cell[159274, 5947, 408, 12, 48, "Input"],
Cell[159685, 5961, 7066, 379, 291, 4838, 339, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[166800, 6346, 186, 3, 40, "Subsubsection"],
Cell[166989, 6351, 452, 14, 43, "Input"],
Cell[167444, 6367, 897, 25, 121, "Input"],
Cell[CellGroupData[{
Cell[168366, 6396, 1005, 28, 93, "Input"],
Cell[169374, 6426, 987, 21, 392, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170398, 6452, 1052, 30, 148, "Input"],
Cell[171453, 6484, 631, 12, 33, "Message"],
Cell[172087, 6498, 629, 12, 33, "Message"],
Cell[172719, 6512, 538, 12, 93, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[173306, 6530, 103, 1, 40, "Subsubsection"],
Cell[CellGroupData[{
Cell[173434, 6535, 709, 18, 100, "Input"],
Cell[174146, 6555, 91, 2, 33, "Print"],
Cell[174240, 6559, 91, 2, 33, "Print"],
Cell[174334, 6563, 248, 6, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174619, 6574, 334, 5, 40, "Subsubsection"],
Cell[CellGroupData[{
Cell[174978, 6583, 32, 0, 42, "Text"],
Cell[175013, 6585, 517, 12, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175567, 6602, 32, 0, 42, "Text"],
Cell[175602, 6604, 498, 11, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[176137, 6620, 32, 0, 42, "Text"],
Cell[176172, 6622, 495, 11, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[176704, 6638, 29, 0, 42, "Text"],
Cell[176736, 6640, 503, 11, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[177276, 6656, 30, 0, 42, "Text"],
Cell[177309, 6658, 503, 11, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[177849, 6674, 30, 0, 42, "Text"],
Cell[177882, 6676, 500, 11, 72, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[178443, 6694, 205, 4, 40, "Subsubsection"],
Cell[178651, 6700, 269, 7, 43, "Input"],
Cell[178923, 6709, 8196, 434, 291, "Graphics"],
Cell[187122, 7145, 84, 2, 43, "Input"],
Cell[187209, 7149, 10455, 496, 562, 6275, 424, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197701, 7650, 1125, 35, 185, "Input"],
Cell[198829, 7687, 321, 9, 37, "Print"]
}, Open  ]],
Cell[199165, 7699, 358, 11, 48, "Input"]
}, Closed]]
}
]
*)

(* End of internal cache information *)
